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ABSTRACT 

R.-...>ctor development is primarily oriented toward the utilization of 

. ■ . v sources of high power ratings in central station application. 

‘i:\are is a relative void in the development of reactors of intermediate power 
for chipboard application. This study presents the results of an engineering 
evaluation of a new concept for reactor cooling, which yields superheated 
steam at thermodynamic conditions and flow rates appropriate to generating 
25,000 SHP. 

The reactor core is arranged as a shell-and-tube heat exchanger, in which 
tho tube wall separating the two counterflowing coolant streams contains the 
nuclear fuel. The first pass coolant, comprised of the returning feedwater 
and recirculating saturated water, flows upwards through the core, boiling 
in an annular channel and exhausting into a common plenum at the top of the 
core. At the design condition for fiall load, the ten percent saturated steam 
produced on first pass heating passes through steam separators, located abovo 
the plenum, and then enters circular flow tubes, defined by the inner radius 
of the annular fuel tubes, to flow back down through the core for the second 
pass and superheating. The moderator region of the core is in the space be- 
tween first pass flow channels. 

The steam cycle used has been based on a direct cycle plant. The design 
power for the reactor at full load is 57 Entering feedwater at 404 °F 
mixes with saturated water at 530 ®F to make up the first pass flow. Second 
pass exit conditions were set at 177,500 Ib/hr at a temperature of 955 and 
a pressure of 865 psia. The cycle efficiency was determined to be 32.6^. 

The nuclear fuel is 50^ enriched UO 2 and the cladding regions are mace 
of Inconel-X. Two moderators were studied - H 2 O (the returning feedwater) 
and BeO. The H 2 O moderator was separated from the first pass coolant in or- 
der to reduce the coupling between the axial power distribution in the fuel 
tubes and the steam voids generated during first pass boiling. Constraints 
on the design were taJeen to be a maximum fuel temperature of 4500 ®F and a 
maximum cladding temperature of 1350 ®F. The latter was found to be con- 
trolling . 

The advantage of this design is that the maximum second pass exit tem- 
perature occurs at the bottom of the core where the relatively cold first pass 
coolant enteis the core. Based on heat transfer considerations, a certain 
fraction of the heat produced in the annular fuel tube will flow inwards to 
the second pass flow, the remainder flowing outwards to the first pass flow. 
Because of the temperature differential between the two counterflowing coolant 
streams, a heat flow also exists across the fuel tube from the second to tho 
first pass coolant. This secondary heat flow plus the low first pass coolant 
temperature reduce the second pass cladding temperatiire at a given second 
pass steam temperature. More heat is transferred to the first pass coolant, 
than the second pass coolant. The intermediate mixing plenum at the top o' 
the core averages out the effects of radial power peaking across the core on 
the first pass coolant flow. Thus, the thermodynamic state of the second pass 
coolant for all channels is identical as it enters the core for the second 
pa.sa ciiiU suporhpating . 



ABSTRACT (Continued) 



The neutron spectrum for both the H£0 and BeO moderated cores was found 
to be above thermal. The cores are undermoderated and there is an axial 
skewing of the power distribution toward the bottom of the core. Because of 
this, control rods must enter the core from the bottom if full power is to 
be achieved without exceeding the metallurgical constraints. The power level 
in the reactor can be partially controlled by varying the flow rate of feed- 
water or recirculating water through the core. 

The analysis of this core configuration becomes quite involved, it being 
necessary to solve the coupled effects of flux and power distributions, ther- 
modynamic state of the coolant and hydraulic flow patterns across the core. 

To achieve this end, a mathematical model was developed and then programmed, 
using numerical analysis techniques. In order to achieve this result, the 
steady state nuclear calculations have used a modified one-dimensional, two- 
group model which "marches" from the consideration of small segments of an 
individual fuel cell to the whole reactor, generating correction factors to 
account for the two-dimensional nature of the idealized problem. The power 
distribution determined is used to calculate the thermodynamic state param- 
eters of the coolant and the flow rates and pressure drops involved. This 
information is fed back into the nuclear calculations and the solution be- 
tween successive iterations is compared until specified convergence limits 
are achieved. 
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Chapter 1 
INTRODUCTION 

1 . 1 Backgroiuid 

Reactor development throughout the world is primarily oriented toward 
the application of nuclear power to central station electidcal generation 
plants. Economic considerations normally dictate that the power ratings of 
such plants be large to be feasible. Consequently, there is what may be 
termed a "relative void" in the development of small reactors for application 
to propulsion systems or as portable power plants. 

Over the complete spectrum of reactor development, many different types 
have been studied or built. In general, the cycles involved are of two dif- 
ferent types - indirect or direct. The plant which utilizes the indirect 
cycle can be schematically divided into two distinct parts on the basis of 
flow loops, one loop for the reactor coolant, the other for the working fluid 
flowing through’ the turbomachinery, with coupling between the two loops pro- 
vided by a heat exchanger. Another means of classifying a particular reactor 
is on the basis of the type or thermodynamic state of the reactor coolant and 
the moderator used. For instance, the common reactor types are pressurized 
water, boiling water, organic moderated and cooled, liquid metal cooled and 
gas cooled. From a purely nuclear point of view, the reactor can be described 
in terms of the characteristic neutron spectrum, i.e., thermal, intermediate 
or fast. In all of the types used today, heat is removed by single pass 
coolant flow along the fuel element. 

Design constraints limit the power that may be removed from a reactor. 
These constraints are normally stated in terms of a maximum fuel temperature, 
a maximum cladding temperature or a maximum heat flux (applicable to a water 
cooled reactor). One of these is fo\ind to be controlling and the design is 
limited by this particular constraint. 
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Power reactors using steam cycles have been generally limited to small 

1 

or modest superheat conditions at the turbine . The pressurized water reac- 
tors, in general, produce secondary steam at temperatures below ^00 ®F and 
pressures ranging up to 675 psig. Boiling water reactors, depending upon 
whether the cycle is direct or indirect, have yielded turbine steam up to 
550 ®F. . The attainment of high superheat has been gained with the BONUS 
(Boiling Nuclear Superheat) reactor, which is direct cycle and produces steam 
at 875 psig» 900 ®F. The BONUS reactor design incorporates an integral nuclear 
superheater region surrounded by a boiling water region. The continuing drive 
for higher steam conditions results from the fact that as the temperature in- 
creases the maximum achievable cycle efficiency increases. 

1 . 2 CFR Power Source and Plant Concept 

The concept which forms the basis of this study utilizes a water cooled 
nuclear reactor as the power source. “Ihe reactor produces superheated steam 
which goes directly to the turbine. The plant is thus described as being 
direct cycle. The primary investigation of the study has been centered upon 
the design facets of the reactor. The concept was originally motivated in 
an attempt to develop a reactor design which would be suitable for a marine 
installation. As such, the design variables considered throughout the study 
are pertinent to a power plant of about 25,000 SHP. At reasonable cycle 
efficiencies, this places the thermal power of the core in the vicinity of 
60 MW-^. Where specific values are '.mentioned, they will be appropriate only 
to reactors in this region of power. The concept for the reactor configura- 
tion is not limited to only these powers or for the specific application to 
a marine plant; investigation of design variables peculiar to higher power 
ratings can be easily undertaken. Likewise, the cycle investigated could be 
either direct or indirect. 

The nuclear reactor is arranged internally as a counterflow shell and 
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^ube heat exchanger. Prom the internal description tne reactor will be subs-- 
quently referred to as the CFR (Counter Flow factor). The annular tube 
separating the two counter flowing coolant streams contains the nuclear fuel. 
Horizontal and vertical cross sections of this arrangement are shown in 
figure 1.1. 

Subcooled first pass coolant enters the core from an inlet plenum imme- 
diately below the core and flows upward in the region exterior to the fuel 
material. As indicated, the first pass flow path is bounded on the exterior 
by a moderator region. During its upward passage through the core, it begins 
to boil and a two-phase satxirated mixture exits into the upper mixing plenum, 
which is common to all first pass coolant flow. 

Dry saturated steam is taken from the upper mixing plenum and flows back 
down through the core for second pass heating within the annular fuel elements. 
During this second pass, the steam is superheated. It should be noted that 
this concept makes each individual fuel element into a pseudo counterflow 
heat exchanger. In this reactor application, the separating tube provides 
a source of power to the two coolant streams; the system, in this sense, is 
an active rather than a passive one, 

VfiLth the counterflow arrangement, the temperature profile of the two 
coolant streams can be used to work against each other. The wall temperature 
of a solid fuel pin producing heat is controlled by the temperature of the 
coolant. In the counterflow arrangement, there are two coolant temperatures 
which regulate both the inside and outside fuel element temperatures. At the 
bottom of the reactor core, superheated steam is leaving which raises the in- 
ner fuel element wall temperature. On the outside of the fuel tube, the rela- 
tively cold feedwater is entering which depresses the outer wall temperature. 
Based upon the radial power distribution across the fuel material and the heat 
transfer parameters, a certain fraction of the power generated will go to the 
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SCHEMATIC ARRANGEMENT OF CFR FUEL ELEMENT 
Figure 1.1 
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exiting steam. However, the temperature rise from the tube wall to the steam 
is decreased because of the counter heat flux caused by the temperature dif- 
ference of the two coolant streams on opposite sides of the fuel element (a 
heat exchanger effect). 

What appears to be the greatest advanage of this system is the presence 
of the upper mixing plenum, which brings all first pass flow to a common 
state before the individual second pass entrances are reached. This then 
damps out the effect of radial power peaking across the reactor and its in- 
fluence on the second pass entrance state. Tnus, the dry saturated steam 
entering a channel, which is producing powor above the core average, leaves 
with' a temperature which is higher than that from the other channels, but not 
as high as the temperature which woifLd result from a once-through arrangement 
when the fuel is producing power at the same high level. Also, as mentioned, 
the increased steam temperature resulting from this situation is lessened be- 
cause the counter heat flinc from the second to the first pass coolant, is in- 
creased, thus decreasing the total heat flu:c to the second pass coolant and 
the wall temperature of the second pass cladding. 

The fact that the first pass flow is exterior to the fuel tube can sig- 
-Jiificantly reduce the final variation of steam temperature from the CFR core, 
since more heat will flow outwards from the fuel to the first pass than to 
the second pass region. To illustrate this, consider the idealized situation 
in which a constant 65/^ of the power produced in the fuel material goes to 
the first pass coolant. Neglecting the effect of the heat flux due to the 
temperature difference between the coolant streams, and considering that only 
two cells are present which have the same coolant flow rates but that one is 
producing twice as much power as the other, the enthalpy rise of the second 
pass coolant in the peaked channel will be twice that from the other channel. 
Considering the total enthalpy rise from first pass inlet to second pass 
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outlet, the average enthalpy rise is 1.5 units vdth that from the peaked chan- 
nel being 1.6?5 and that from the second channel 1,325. With the interme- 
diate mixing stage, the ratio of maximum to minimum enthalpy rise is reduced 
to 1.264 (= 1 . 675 / 1 . 325 ) instead of two. 

A certain measure of safety is provided in this design against the ad- 
verse effects of scale deposition, manufacturing tolerances or other phenom- 
ena which would cause an increase in the thermal resistance between the fuel 
and coolant. When an increased thermal resistance is present on one side of 
the annular fuel element, more of the generated heat flows to the other side. 
Such an occurrence results in raising both wall temperatures and the maximum 
fuel temperature in the region of the obstruction. Cooling the annular fuel 
element on both the inside and outside lessens the danger of exceeding a 
temperature constraint when this situation occurs. A solid fuel element 
cooled on the exterior surface only does not possess this feature. 

One other advantageous featixre of this design can be seen in Fig\u:e 1,1. 
A separate moderator region is provided for each fuel element which is en- 
tirely distinct from the coolant regions. In the boiling water reactor, the 
axial variation of power generation is dependent on the local condition of 
the coolant with a definite skewing of the power distribution toward the 
bottom of the core because of the increased coolant density and, hence, mod- 
eration present at the bottom of the core, Ihe presence of the moderator in 
the CFR core reduces the dependence of the local power generation rate in the 
fuel to the local thermodynamic state of the coolant. 

1.3 Steam Cycle 

The plant power for this study has been arbitrarily set at 25,000 SHP, 

2 

Although higher than the plant power installed in the SAVANNAH, it is repre- 
sentative of the requirements of a large number of current conventional 
marine power plants. On the other hand, it is much lower than the ratings 
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of the majority of shore-based electrical power generating stations. Thus, 
the assigned rating of 25,000 SHP (approximately equivalent to 18.6 MW©) re- 
sults in a relatively small plant. In this sense, the study then becomes 
appropriate to portable power plants, be they for electrical power generation 
and heat or for propulsion. Since the context for the CFR plant concept has 
been in the marine field, only that area will be considered in selecting the 
plant steam cycle. 

A considerable number of conventional oil- fired plants now operate with 
throttle inlet conditions of 600 psig, 850 ®F. Naval units have been built 
which produce steam at 1200 psig, I050 ®F. The selection of the higher con- 
ditions for naval ships is influenced by the effect of plant weight on the 
ship's military characteristics and mission and is not as greatly dependent 
on the "dollar" economics which govern the selection of a merchant marine 
plant cycle. 

In the search for an optimum conventional steam cycle, numerous studies 
have been made. These studies considered such variables as fuel price, op- 
erating expense, return-on-investment, and capital cost, among others. Their 
conclusions reflect the then current fuel oil price and plant ratings and 
include some comments on the effects of variations of these factors. 

3 

In 19^ MacMillan and Ireland concluded that the optimum throttle con- 
ditions were 450 psig, 750 °F for installations producing 6OOO SHP, For plants 
of higher ratings, they suggested that conditions at 615 psig, 850 °F be 
selected, 

4 

Ten years later Cheng and Dart published the results of an economic 
study on a 25,000 SHP single screw tanker. Iheir conclusions substantially 
reflect those of the previous study, namely that 6OO psig, 85O °F represent 
near optimum conditions when referred to round trip distances of 3000 and 
25,000 miles. In their opinion, raising the steam conditions to 850 psig. 
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900 op could only be justified on the basis of longer distances and higher 
fuel prices, 

5 

Later Nichols, Rubin and Davidson discussed the selection of machinery 
for JO, 000 SHP tankers. Throttle steam at 600 psig, 85O °F is a common design 
point for current tankers of 25,000 to 160,000 deadweight tons. The advance- 
ment of these conditions to 60O psig, 920 ®F is, in their opinion, a step 

which can be reasonably taken to yield a higher cycle efficiency, 

6 

MacMillan and Rhode have reviewed the selection of cycle conditions for 
plants in the 12,000 to 25,000 SHP range. Compared with a plant of 600 psig, 
850 °F, they concluded that an improved conventionally fired plant at 850 psig, 
950 °F will result in a plant weight savings of 155 tons and a reduction in 
fuel costs of about 13^, 

The conditions of 850 psig, 950 ®F have also been recommended for the 
throttle design conditions for the "63OA Nuclear Steam Generator", the pro- 
posed adaptation of the reactor studied for the nuclear powered aircraft to 

7 

a marine propulsion plant . 

Based on these considerations, the design point for the throttle steam 
conditions in the CFR plant has been selected as 850 psig, 950 ®F, These 
points then represent the current state of the art as regards the components 
of a marine steam plant, 

Ihe salient features of the steam cycle into which the CFR is to be 

integrated are shovm in Figure 1,2, The calculational method used follows 

8 

that recommended for generating comparative marine heat balances , Data for 
main turbines, txirbogenerator and main feed pump turbine steam rates were 
taken from reference 9, The summary of plant load requirements is given in 
Table 1,1, 

Considering that all plant load requirements other than those of the 
main propulsion turbines are parasitic, the cycle efficiency is calculated 
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CFR STEAM CYCLE WITH FOUR STAGES OF FEEDWATER HEATING 

PigTxre 1.2 



Table 1.1 

PUNT LOAD REQUIREMENTS 



Item 



Reqiiireroent 



Main Propulsion Turbine 
Counterflow Reactor 
Reactor Coolant 
Turbogenerator 
Distillation Plant 
Low Pressure Steam Generator 



25,000 SHP 
57.^ MWt 
177.500 lb/hr 

600 KW 
2500 GPD 

100 lb/hr 
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as 32 . 6 ^^. Utilizing the results of reference 9t a reactor inlet temperature 
of 404 °F is in the region of a relatively flat optimum for cycle efficiency. 

The turbogenerator load includes the effect of circulating pumps for 
condenser cooling. Scoop injection alone (using the velocity head of the 
ship to force cooling water through the condenser) is not feasible. The system 
must provide adequate cooling water to the condenser when the ship is backing 
down. 

The selection of this cycle does not include considerations based on 

plant weight. An independent and detailed optimization of a cycle with 

respect to plant weight or cycle efficiency and plant weight is beyond the 

10,11 

scope of this study. References in the technical literature to corre- 

lations of equipment weight as a function of flow or performance character- 
istics are no longer current and the effort necessary to perform an optimi- 
zation using these correlations is not considered to be justified. Suffice 
it to say that the steam cycle chosen parallels current marine practice and 
should not cause the plant weight to deviate sharply from its minimum value. 

1 .4 Scope of the Study 

The primary aim of this study was to investigate the engineering feasi- 
bility of the reactor concept. Because of the relatively complicated geometry 
most of the effort expended has been in the development of an analytical and 
computational tool which will simultaneously solve the coupled nuclear, 
thermodynamic, heat transfer and h 3 ^aulic behavior of the two coolant passes 
through the fuel elements across the reactor. A detailed description of the 
approach used is set forth in Appendices A through E. To facilitate the 
investigation of power ratings and inlet conditions other than those chosen 
for the plant under discussion, the mathematical model used has been pro- 
grammed in FORTRAN languate for the IBM 7090 digital computer. A listing 
of the program is given in Appendix G. 



After the development of the necessary mathematical tools, the study 
has investigated those reactor configurations suitable to the power rating 
of the 25,000 SHP marine plant discussed in the preceding section. The 
work "suitable" can be intrepreted to mean many things. For the purpose of 
this study, it will refer to an engineering optimization of the core size 
such that the maximum power density will result, subject to the limitations 
of a design constraint. Before the application of any new concept, an 
economic investigation is normally conducted. This type of investigation 
is beyond the scope of this study. Minimum core size has been chosen as the 
variable to be optimized. For the marine application, reactor size is one 
of the primary factors that must be considered. 

The consequences of using a direct cycle arrangement with this reactor 
concept are briefly investigated. Hinphasis here is placed upon the neces- 
sary machinery space shielding weights that must be provided as protection 
against the effects of a distributed radioactive coolant. Necessarily, the 
exact shielding configuration and weight is determined by the specific ar- 
rangement of the machinery space and cycle under consideration. Some gener- 
alized results of the requirements for a particular reactor power and overall 
machinery compartment size are derived from a simplified mathematical model. 

All investigations in this study have been conducted for the steady state 
condition. A complete transient study of a marine power plant using the re- 
actor power source described is beyond the scope of this study. Using numer- 
ical analysis techniques to define a mathematical model to study the transient 
behavior can be shown to lead to completely impractical solution times. The 
maximum time increments that can be used for such an analysis to ensure 
stability of the time-dependent difference equations for either nuclear or 
temperature transients is limited by the physical dimensions of the fuel 
tube. These time increments necessarily have to be of the order of a 
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microsecond. When the total number of space points vdthin the reactor is 
considered, the solution time for a one-minute transient study requires a 
computer running time expressed in tens of hours. 

Because of the spatial distributions of power and temperature within 
the reactor, a method for formulating and solving the coupled transients by 
means of analog techniques and a lumped parameter model is not sufficiently 
accurate. The spatial temperature distribution in the fuel tube is crucial 
in determining the heat flow to the first or second pass coolant stream. 

This temperature distribution is functionally dependent on the state varia- 
bles of the coolants, which show large variations over the height of the core 
and cannot be represented by any simple mathematical correlation. 

As a starting point for conditions perturbed within the core, the study 
presents the results of calculating the maximum temperatures achieved when 
flow is blocked to one of the coolant channels. Ihe validity of such calcu- 
lations, as to whether they represent the final steady state thermodynamic 
and power profiles for such pertxirbations, can be only determined from a 
complete transient analysis or by experimental verification. 
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Chapter 2 

OPTIMIZATION OF CFR FUEL ELEMENT PARAMETERS 

2«1 Scope 

An optimization of the reactor parameters could be based on any one of 
several different economic philosophies. For example, the optimization could 
be conducted on maximum return on initial investment or on minimum operating 
expense. Regardless of which criterion is selected, one of the sources of 
economic data that is not available is fuel cycle costs. There are several 
computer programs available to calculate reactivity as a function of core 
operating life but the deficiency with the present programs, as applied to 
the CFR core, centers around the fact that the provision for considering the 
shift in power distribution across the fuel tube as the fuel is expended is 
missing. 

In the typical nuclear reactor, in which individiial fuel elements are 
cooled by a one-pass coolant stream, the change in power distribution across 
the core affects the "macroscopic” or "gross” limitations on available power 
generation rate. In the CFR reactor, the "macroscopic" or "gross" shift in 
power distribution is also present but additionally "microscopic" or "fine" 
shifts of power generation within each fuel element cause a variation in time 
of the heat produced that goes to either the first or second pass counter- 
flowing coolant. Presently available computational tools cannot describe 
this "fine" shift of power distribution which is necessary to determine the 
maximum power that can be achieved at any point in the core life. 

In lieu of selecting the reactor parameters on the basis of economic 
considerations, the optimization subsequently described is based on achieving 
a core with maximum power density. This optimization is a static one, since 
only the effect of the "gross" and "fine" power distributions within the core 
and fuel element, respectively, are considered during the hot clean condition 
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of the core. The optimization is set up to determine the core of minimum 
volume that produces the requisite amount of power subject to the condition 
that none of the design constraints are violated but that one of the con- 
straints is achieved. 

As a first step in defining the core of minimum volume, the investigation 
described in the subsequent sections of this chapter is directed toward de- 
termining the m inimum channel height for various other parameter combinations 
that cause one of the limiting variables to approach its constrained value. 

During the presentation of the model used during the optimization study, it 
will become apparent that the primary variables defining the minimum fuel 
element length depend primarily on the second pass flow rate and the fuel 
element radial dimensions. This first approach neglects the influence of 
nuclear parameters on the design and concentrates only on heat transfer and 
thermodynamic variables. The optimization thus finds only the minimum channel 
height, i.e,, the core height, which satisfies the constraint. Nuclear aspects 
of the problem are uncoupled and are considered separately in the next chapter, 

2.2 Fuel Element Materials and Design Constraints 

At first glance, either of two oxide fuels appears suitable. The first 
is UO 2 , using as the fissionable material and U^38 ^s the fertile material. 

Ctanium dioxide has a melting point of roughly 5000 °F, but this high tempera- 
ture is offset by its low thermal conductivity of 1 Btu/hr/ft/°F, For the 
counterflow arrangement of the annular fuel element cooling, the low value 
of the thermal conductivity masks the variation in the heat transfer coef- 
ficients to the first and second pass coolant streams. 

An oxide mixture in which thorium dioxide forms the basic structure with 
uranium dioxide (U^^3 q 2) interspersed is also a possibility. Like the all 
uranium oxide fuel, the melting point is high and the thermal conductivity 
is low. The advantage of this fuel revolves around the absorption characteristics 
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of thoidum, which because of its resonance absorption cross section is more 
easily converted to a fissionable material. The technological expeidence with 
this type of fuel is small and because of this it has not been considered 
further in this study. Its heat transfer properties are not significantly 
different from the all uranium oxide fuel. Tnis is not to say that fuel cycle 
studies would not vindicate its use but only that present knowledge of its 
characteristics is not considered to be broad enough to extrapolate its use 
to this study. 

An alternative to the use of a ceramic fuel is to consider the use of a 
fuel dispersion in a metallic lattice. Although the heat transfer coefficient 
of this type of fuel is significantly higher and the temperature gradient 
between the two counterflowing coolant streams is consequently reduced, the 
nuclear properties of such an element are undesirable. Present technology 
indicates that the only dispersed fuel elements of this type which would be 
compatible with high temperature steam are iron or nickel base alloys. Both 
of these elements have high absorption cross sections, which would raise fuel 
cycle costs because of the increased parasitic neutron absorption within the 
core. 

Of these three possible fuel materials, the one selected for this study 
is uranium dioxide. No extrapolation is required to justify its use in the 
CFR core. With the exception of a small amount of absorption by oxygen, all 
absorptions in the fuel material take place in the U^35 ©r U^38 (disregarding 
fission products). The crystal structvire of the oxide is cubic, which has 
an interstial space for retention of fission products. The material is com- 
patible with high temperature steam or water so that the effect of a cladding 
rupture is minimized. The constraint which will be used during the course 
of.; the optimization is that the maximum fuel temperature is limited to 4500 °F 
and that the average thermal conductivity is 1 Btu/hr/ft/°F; these values 
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have been applied in the past by the U.S. Atomic Energy Commission as con- 
straints for other reactor feasibility studies. 

The cladding material chosen for the fuel element is Inconel-X. Under 
current USAEC design restrictions, the maximum allowable temperature at an 
interface between steam and Inconel is 1350 ®F. Inconel is also compatible 
with the high temperature fuel oxide which it encloses. It is possible to 
conceive of Zircaloy, for instance, as being the cladding on the first pass 
side. The use of Inconel on both sides of the fuel is based on the premise 
that easier manufacturing and assembly of the fuel element will result. Al- 
though not directly related to the heat transfer optimization of the channel 
length, , this material will also be considered to be the boundary material 
between the first pass coolant and moderator. 

As will become evident later, the controlling design constraint is the 
maximum cladding temperature on the second pass coolant side. The subsequent 
discussion is directed toward demonstrating a technique of satisfying this 
constraint. The final result, optimized on the assumption that the cladding 
temperature is controlling, shows from the calculation of the maximum fuel 
temperature that this assumption is indeed correct. 

2.3 Design Variables 

The geometry of each cell is relatively complicated. On the basis of 
geometrical considerations, seven variables representing the various radial 
dimensions are introduced into the core optimization. Of these, three can 
be neglected for heat transfer and thermodynamic calculations, the three being 
the radial dimensions defining interfaces at the first pass coolant-moderator 
cladding, moderator cladding-moderator, and the equivalent moderator exterior 
radius. The remaining variables define the radial dimensions of the annvilar 
fuel element and its associated cladding. One additional dimension must be 
considered , that of the fuel element length (height of the active core). 
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The nomenclature which will be used throughout the remainder of this 



chapter is shown in Table 2.1. 



Symbol 

ri 



2*2 

*3 

ri+ 



R 

V2 

V2 

T2 

T2e 

Hz 

H2e 

C2 

^c 

kf 

hi 

h4 

hi 

Hi 

T1 

Wz 

i«e 

Q 

L 

h3 



h2 



z 

«><. 

AT 

Tc 



Table 2.1 

NOMENCUTURE FOR FUEL ELEMENT OPTIMIZATION 
Description 



Second pass coolant and internal fuel tube cladding 
interface radial distance measured from the center of 
the second pass flow channel 

Internal fuel tube cladding and fuel interface distance 
Fuel and exterior fuel tube cladding interface distance 
Exterior fuel tube cladding and first pass coolant inter- 
face- distance 
Ratio of r^ to rz 
Second pass coolant exit velocity 
Specific volume of second pass coolant at exit 
Temperature of second pass coo3nnt 
T2 at exit 

Enthalpy of second pass coolant 
Hz -at exit 

Average specific heat of second pass coolant 
Thermal conductivity of cladding material 
Ihermal conductivity of fuel material 
Heat transfer coefficient at ri 
Heat transfer coefficient at ri+ 

Heat transfer coefficient at rz and r 3 between conducting 
regions 

Enthalpy of returning feedwater 
Enthalpy of saturated vapor at first pass exit 
Temperature of first pass coolant 
Mass flow rate out of second pass coolant channel 
Effective thermal conducti-yity between the two counter- 
flowing coolant streams 
Total povrer produced in the fuel element 
Length of the active fuel element 

Effective heat transfer coefficient from fuel to first 
pass coolant 

Effective heat transfer coefficient from fuel to second 
pass coolant 

Fraction of heat produced in the fuel material that goes 
to the second pass coolant, disregarding the heat flux 
due to the temperature differential between the two 
coolant streams 

Distance variable measured from second pass exit point 
up along the fuel element 

Derived parameter dependent on heat transfer and fluid 
flow 

Temperature differential between the cladding and second 
pass coolant 

Cladding temperature at ri 
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ZA SiBiplified Kathenatlcal Model 

The variation of power generation rate within a fuel tube is dependent 



the power generation rate, both radially and axially is constant, the nuclear 
aspects of the problem are completely uncoupled from the non-nuclear heat 
transfer and thermodynamic aspects of the problem. The determination of a 
set of fuel element parameters, which will satisfy the design constraints and 
lead to an element of minimum length can be achieved using only those param- 
i eters which involve heat transfer and thermodynamics. 

This assumption permits the development and utilization of a simplified 
model to deteraine the approximate set of values for an element of minimum 
I height. If the second pass exit velocity V2 and the thermodynamic inlet and 
[ exit conditions for the first and second pass coolant are stated for a typical 
cell in the core, the geometrical values r-] through rz^ can be varied and the 
corresponding value of the maximum cladding temperature determined, once the 
length L of the cell has been found. Knowing the second pass flow through a 
channel within a cell, the total number of fuel elements in the core is fixed. 

Certain heat transfer quantities are necessary to solve the transcen- 
j dental equation which defined the channel (core) length. These can be defined 
as follows; 



On the basis of the thermal barriers which are present and are represented 
by the terms just defined, it can be shown (Appendix B) that the fraction f£ 
of the total heat produced in an incremental length of fuel that would go to 
the second pass coolant (inside the fuel tube) is defined by: 



on the nuclear flux shape. If, as a first approximation, it is assumed that 
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An approximate thermodynaxaic balance can be written for an incremental 
length of second pass coolant channel as follows 

"* ^ +• 2 •»T (Tsl - Ti') 

As a further simplification to the problem, it can be assumed that the 
temperature T-| of the first pass coolant is constant. The first pass coolant 
undergoes boiling, so that in the boiling region of the channel the only in- 
fluence on the bulk coolant temperature is caused by the pressure loss as 
the coolant travels up the channel. Between entrance and the point where 
boiling occurs, the bulk coolant temperature rises. For the desired condi- 
tion of second pass exit temperature T2e at 955 when the pressure is 885 
psia, the temperature differential, assuming no subcooling of the first pass 
coolant at ixilet pressure of 9 OO psia, between the two coolant streams is 
^23 5^, For the case when the returning feedwater is at 40^ °F and the recirc- 
ulation through the first pass channel is adjusted such that steam exits 
into the upper plenum, the first pass inlet temperature is 520 °F and the 
temperature differential between the streams at the bottom of the core is 
^35 F°. Ihis introduces an error of approximately 3^ in the heat flow from 
the second to first pass stream, which is within the limitations of -the 
model. With this assumption, the temperature Ti is not a function of position. 

Ihe rate of change of second pass enthalpy H 2 can also be expressed in 
terms of the rate of change of temperature T 2 and the average specific heat 
capacity of the second pass coolant. The second pass coolant enters as dry 
saturated steam at the temperature T-j , if the pressure loss in going from 
first pass exit to second pass inlet is neglected. If the desired second 
pass exit temperature and enthalpy are specified, the average specific heat 
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of the second pass coolant is 



^ , H 2 & - Hg 

Tse-Tj 

The final approxination in this model is to neglect the axial variation 
of the derived heat transfer properties f£ and kg. When this is done, the 
equation for second pass temperature variation is 

-Wa = -fa S ”Tr ke (Ta - 

The boundary conditions for integrating this equation are that at z = 0, 

'^2 “ ^2e * at z = L, T 2 = T.j . Evaluating the integration constant at 
z = L and then writing the transcendental equation at z = 0 yields 

Vl2Ca(Tza -T.) _ ^(1 • e"**-) 

a " c^L 



where 



e/ = 2 -7/ kg 

The total heat Q produced in a fuel tube is simply 

Ov - W2 ( Hae “ Hi) 

where H-j is the enthalpy of the retvirning feedwater. Using the definition 
of the average second pass coolant specific heat C2» the transcendental 
equation reduces to 

^ » e»< L. 

The left hand side of this equation is fixed by the inlet and outlet coolant 
conditions and operating pressure in the core. All terms in the RHS are 
known except L, the length of the channel. A trial-and-error solution to this 
equation fixes the channel length L. 

Once the channel length L has been determined, the maximum temperature 
differential at the interface between second pass coolant and cladding 
can be determined. It is defined by 
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AT = [ 4-^ - airKe fTze -T,)] 

since it must occur at the bottom of the core under the assumption that the 
power generation rate along the fuel and first pass coolant temperatvire are 
constants. The calculation of AT is the first indication as to the accepta- 
bility.; of the particular parameter set to meet the design constraint on maxi- 
mum allowable cladding temperatiire , Ihe maximm cladding temperature is 
simply the sum of ? 2 e and AT. 

The second pass flow rate W2 through an individual channel is determined 
from the specified second pass exit velocity V2, second pass channel radius 
ri , and the specific volume of steam at the desired exit conditions of temper- 
atiire and pressure. 

2.5 Influence of Design Variables on the Cladding Temnerature Constraint 

The two variables r-], the second pass channel radius, and V2, the second 
pass coolant exit velocity, jointly play a major role in the determination 
of the maximum cladding temperature. In conjunction with the stated coolant 
inlet and exit thermodynamic states, they fix the following derived quantities; 

a. Second pass mass flow rate through a channel 

b. Power produced in a fuel element 

c. Number of cells in the core 

d. Heat transfer coefficient at the second pass coolant-cladding inter- 
face, which determines temperature rise from the coolant to the cladding and 
is a controlling term in the definition of the effective thermal conductivity 
kg and hence the heat flow fraction f2. 

The two dimensions, which specify the fuel material thickness, r 2 and r^, 
jointly fix one of the more controlling terms in the definition of ke and f2, 
namely the term ln(R)/kf. For an application in which a metallic fuel material 
could be used, the relative importance of the ratio R would bo reduced, since 
the thermal conductivity of the fuel is the divisor in the term. The ceramic 
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fuel UO 2 has a relatively low thermal conductivity, as specified in the ground 
rules for the optimization, and the direct effect of a large ratio of R is 
not reduced in the expression entering the definition of effective thermal 
conductivity ke. It should be noted that the fuel material dimensions are 
described in terras of the non-dimensional ratio R in both the expressions for 
kg and f 2 « Tnis ratio then is a controlling design variable rather than the 
dimensional values for r£ and 

The cladding thicknesses, which are determined by the variables r^j, r£ 
and Tj, rjij, must be fixed by strength and safety considerations. For the case 
of the cladding surrounding the fuel, the maximum thermal stresses will occur 
at the bottom of the core because of the steeper temperature gradients present 
there. For the selection of parameters resulting in a fuel element of mini- 
mum height, these other considerations rule out the possibility of independently 
varying these dimensions. The effect of the inner cladding thickness on the 
determination of the channel length L is small compared to the other inputs 
to the expression for effective heat transfer coefficient h2 and its influence 
on the expressions for kg and f2« The outer cladding thickness provides an 
input to the effective heat transfer coefficient h^, but this term does not 
significantly affect the values of kg and f2. 

2.6 Optimization Technique 

Vfiith the definition of an analytical model, the determination of the 
fuel element of minimum length L becomes relatively straightforward. The 
primary variables for investigation are V 2 , r-; and R. For each combination 
of these variables, a value for the fuel element length L and maximum temper- 
ature differential between cladding and second pass coolant is fixed. 

The manner in which these calcxilated values are used is optional, Ihe 
method used in this stxidy proceeded by fixing V 2 and R and generating a curve 
of ^7 vs r-] and a curve of L vs ri . Holding the velocity V 2 constant, families 



22 




» 



I 

I 




ox' cux'^es were generated for different values of R. ’.v'hen the curve of vs r-| 
reached the constrained value of (the difference of the liiniting cladding 
teniperature and second pass steam exit temperature), the value of r-j at which 
this took place was used to enter the second set of curves of L vs ri at con- 
stant V2 and R to pick off the corresponding length L. 

Tne resulting set of values of L, ri , R and V2 defined a family of curves 
which had one thdng in common - the curves were valid for a constant value 
of AT, the variable used to represent the design constraint. Plotting curves 
at constant values of V2 for L vs R and r^ vs R permitted the determination 
of the channel of minimum length L for a given R and the value of r^i on the 
curve of r-) vs E uniquely fixed the combination that satisfied the constraint. 
Subsequent plots of rainimm L vs V2 and r-| and R at minimum L vs V2 then com- 
pletely fixed the dimensions. 

The search for values, at which the constrained cladding tempera ttire 
was achieved, used the cladding-coolant temperature differential as the ini- 
tial variable upon which the optimization was performed. It shoiJ.d be noted 
that this choice is only valid for the situation assumed in the model, that 
is, that the power generation rate along the fuel element is constant. In a 
more realistic situation, . the maximum cladding temperature would not neces- 
sarily occur at the exit point of the second pass coolant but would depend on 
the local heat flux and coolant temperature at some arbitrary point up the 
fuel element. If the effect of a variable axial power generation rate had 
been introduced into the model used, the maximum cladding temperature and 
the exiting steam temperature coxild be used to define a new dummy variable 
(the temperature differential) which would vary with position along the 
channel; nevertheless, a maximum differential would exist. 

Tne temperature differential is a function of the power produced in the 
- .jlemcnt. The resultant calculated data is better presented using this 
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qun.ntit.y as a noasure of a given combination of values to meet the constraint 
temperature than the actual maximum cladding temperature. A log- log plot 
of AT vs r^^ at fixed values of V£ and R results in a gently sloping line. 
Presentation of the calculated terms using the maximum cladding temperature 
directly vs ri yields a much more sharply curving line and hence requires 
additional points to more accurately describe the loci of points on the curve. 
2.7 Optimization Results 

The range of the three controlling parameters V^t and R used in per- 
forming the optimization were as follows: 

Variable Range Increment 

V2 100 - 300 ft/sec 100 ft/sec 

r-]^ 0.25 - 2.0 cm Various 

R 1.1 - 5.0 Various 

Those values needed to conduct the analysis, other than those specified 
by the thermodynamic state of the coolants, are given. The thickness of the 
interior and exterior cladding around the annular fuel region was set at 20 
mils; this value thus determined r2 when r]_ was given and r4 when r2 and R 
were specified. The interface heat transfer coefficient hi between the clad- 
ding and fuel regions was assigned the value of 1000 3tu/hr/ft^/°F, The thermal 
conductivity of the Inconel cladding kg was taken at 8.4 Btu/hr/ft/®F, 

Lastly, the average value of the heat transfer coefficient between cladding 
and first pass coolant iUf was taken as $000 Btu/hr/ft/^/°F. With these values 
and those determined by the thermodynamic state of the coolant, the results 
were calculated. 

The results of plotting the maximum cladding-coolant temperature dif- 
ferentials are shown in Figures 2.1 - 2.3. The calculated channel lengths L are 
shown in Figures 2,4 - 2.6. After those points are established on Figures 2.1 
- 2.3 for a given temperature differential, the corresponding channel lengths 
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Figure 2.3 
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FUEL TUBE LENGTH L VS SECOND PASS CHANNEL RADIUS ri FOR VARIOUS VALUES OF 
FUEL MATERIAL RADII RAHOS (r^/r2) AT A SECOND PASS EXIT VELOCITY OF 
100 ft/ SEC 

F:Lg'ure 2.^ 
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FUEL TUBE LENGTH L VS SECOND PASS CHANNEL RADIUS FOR VARIOUS VALUES OF 
FUEL MATERIAL RADII RATIOS {tjItz) AT A SECOND PASS EXIT VELOCITY V£ OF 

200 ft/sec 

Figure 2,5 
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FUEL TUBE LENGTH L VS SECOND PASS CHANNEL RADIUS ri FOR VARIOUS VALUES OF 
FUEL MATERIAL RADII RATIOS AT A SECOND PASS EXIT VELOCITY V2 OF 

300 FT/ SEC 



Figure 2,6 
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can be read from the second set of figures. 

The desired second pass steam exit temperatiire is 955 From Section 

2.2, the maximum allowed Inconel cladding temperature is 1350 °F. The maximum 
allowable temperature differential is thus fixed at 395 F°. It must be remem- 
bered that this value is only valid for the ideal sitviation in which the power 
generation rate is constant throughout the core. The model used to generate 
Figures 2.1 - 2.6 had no provisions for 'including the effects of spatial 
variation of power generation, i.e., power peaking. 

The values of the cladding- steam interface temperature differential 
chosen for further detailed investigation are 295 F®, 245 F°, 195 F® and 145 
F®. These correspond then to margins of safety for not exceeding the constrained 
maximum cladding temperature of 100 F®, 150 F°, 200 F® and 250 F®, respec- 
tively, under the assumption of flat power generation. As a first approxi- 
mation, this presupposes that the maximum-to-average power generation rate 
will fall someplace between 1.35 and 2.6. 

When one of the chosen temperature differentials is used to enter Figures 
2.1 - 2.3, the value of the inner radius r-j for a given ratio of annular fuel 
element radii (r^/r2) is determined. Entering the corresponding set of Figures 
2.4 - 2.6 with these values then fixes the length L of the fuel element. The 
results of plotting these points for a given value of AT and second pass exit 
velocity V2 are shown in Table 2,2 and Figures 2.7 - 2.12. 

In the discussion of design constraints in Section 2,2, it was pointed 
Out ', that "the maximum allowable temperature for the UO2 fuel is 4500®F. Taking 
the case of the minimum channel length for AT = 295 F® at V2 = 100 ft/sec, 
the maximum temperature in the fuel is calculated to be 1570 ®F. Thus, the 
cladding temperature constraint is controlling in the optimization. 

Inspection of Figure 2.9 and Figure 2.11 shows that the curves of length L 
for V2 at 200 and 300 ft/sec are still decreasing as the value of R decreases. 
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Tablo 2*2 



?U2L ELEMENT PARAMETERS SATISFUNG CLADDING TEMPERATURE CONSTRAINTS 
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FUEL TUBE LENGTH L VS FUEL MATERIAL RADII RATIO (r3/r2> FOR CONSTANT VALUES OF 
MAXIMUl'I SECOND PASS CUDDING-COOUNT TEMPERATURE DIFFERENTIAL AT AT A SECOND 

PASS EXIT VELOCITY OF 100 FT/SEC 
Figure 2,7 
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SECOND PASS CHANNEL RADIUS r-] VS FUEL MATERIAL RADH RATIO FOR CONSTANT 

VALUES OF 1-IAXIMUM SECOND PASS CLADDING-COOLANT TEMPERATURE DIFFERENTIAL AT 
AT A SECOND PASS EOT VELOCITY V 2 OF 100 FT/ SEC 
Figure 2.8 
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FUEL TUBE LENGTH L VS FUEL MATERIAL RADII RATIO (r3/r2) FOR CONSTANT VALUES OF 
MAXIMUM SECOND PASS CLADDING-COOLANT TEMPERATURE DIFFERENTIAL AT AT A SECOND 

PASS EXIT VELOCITY OF 200 FT/SEC 



Figure 2.9 
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SECOND PASS CHANNEL RADIUS ri VS FUEL MATERIAL RADII RATIO {r'^hz) FOR CON- 
STANT VALUES OF MAXIMUM SECOND PASS CLADDING-COOLANT TEMPERATURE DIFFERENTIAL 
AT AT A SECOND PASS EXIT VELOCITY V 2 OF 200 FT/ SEC 

Figure 2.10 
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FUEL TUBE LENGTH L VS FUEL MATERIAL RADII RATIO FOR CONSTANT VALUES OF 

MAXIMUM SECOND PASS CLADDING- COOLANT TEMPERATURE DIFFERENTIAL ^T AT A SECOND 



PASS EXIT VELOCITY OF 300 FT/ SEC 
Figiire 2.11 
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SECOxND PASS CHANNEL RADIUS VS FUEL MATERIAL RADII RATIO (r3/r2) FOR CON- 
STANT VALUES OF MAXIMUM SECOND PASS CLADDING-COOIANT TEMPERATURE DIFFERENTIAL 



AT AT A SECOND PASS EXIT VELOCITY V 2 OF 300 FT/ SEC 

Figure 2.12 
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7ne lowest point of these curves was calculated vrhon r-| was equal to 0.25 cn:. 

Tne curves were terminated at this value since continuation beyond is considered 
to be unrealistic from the manufacturing standpoint. The graphical minimun 
for V2 at 100 ft/sec and C>T at 295 ^ occurs at slightly under this cut-off 
dimension. Only for the case of V2 at 100 ft/sec does a minimum exist in 
the plot of length L. 

As shown in Figure 2.8, the radius r-j decreases above 0.25 cm as (r^/r2) 
approaches urjLty. For values of V2 at 200 and JOO ft/sec, one would expect 
that the radius r-| -would increase as (r^/r2) decreases for any given temper- 
ature differen-tdal AT. For r-| = 0.25 cm and (r^/r2) = 1»5i the calculated 
temperature differen-tial is 90.7 for V2 = 200 ft/sec and 43.3 Tor V2 = 

300 ft/sec. In both cases, the minimum temperat\ire differential T had not 
been reached when (r-/r2) was reduced to 1.5 and ri was held constant at 0.25 
cm. Tnus, even though values of r-| might be found above 0.25 cm for small 
values of {tj/tz), no calculations -were actually carried out to determine 
them. At these small values of the volur-e percentage of fuel that can 

be loaded into the core becomes very small and, hence, that of -the cladding 
becomes larger. The fact that a higher rate of parasi-tdc neutron capture in 
the cladding would result for parameters in this region ob-vlated the require- 
ment to perform the calculations necessary to demonstrate a graphical minimum. 

Tne optimum set of fuel element dimensions for maximum core po-wer density 
can be determined from the curves of length L for a given steam velocity and 
temperature differential based on the assumed power distribution, heat transfer 
and thermodynamic conditions. Nuclear considerations, not included in this 
model, must also be weighed when choosing the optimum set. The dimensional 
sets generated here provide a starting point for determining the complete 
set of core dimensions. 
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Chapter 3 

MATHEMATICAL MODEL TO ANALYZE THE COUNTERFLOW REACTOR 
3«1 Introduction 

The results presented in Chapter 2 dealt specifically with the fuel 
element parameters under several simplifying assumptions. Briefly recapping, 
the"? assumptions made were (1 ) power generation within individual fuel ele- 
ments and across the core had not spatial dependence, (2) the temperature of 
the first pass coolant throughout the height of the core was constant, and 
(3) the heat transfer properties of the coolant streams did not change within 
their respective channels. With these assumptions, it was possible to define 
optimum fuel element dimensions by not considering the nuclear aspects of 
the power source. 

The above noted model does not present the power and coolant property 
Variations in sufficient detail. In addition, there is no means of telling 
if, for a given fuel enrichment, that the reactor will even achieve criti- 
cality. Because of the coolant density changes, there is no means of deter- 
mining whether the flow pattern aci-oss the core is stable or unstable. In 
summary, finer details are necessary to detennine whether or not the concept 
is feasible. 

3.2 Scope 

The reactor is an assemblage of the cells shown in Figure 1.1. As such, 
a rigorous analysis of the reactor would involve the solution of a three-di- 
mensional problem. Making the assumption that the parameter variation is 
rotationally symmetric about the center line of the right circular cylinder 
which is the core, the problem can be reduced to one of a two-dimensional 
nature . 

Tne variation of the different parameters (flux, power; temperature, 
etc.) could be represented in terns of analytical functions. Unfortunately 






the problem is so complex that a trial-and-error type of solution is required. 
The reiterative approach, which is required to solve the coupled nuclear, 
heat transfer, fluid flow, and thermodynamics problem, suggests that the 
problem be formulated in sets of difference equations. This approach has been 
used here, particularly because of the relative ease to which this type of 
problem lends itself to programming on a digital computer. The majority 
of the effort expended in ttds study has been devoted to the development of 
the analytical model which described parameter variation and the subsequent 
programming of the model. As such, the program which has resulted can be 
applied to any reactor which follows the concept of the CFR and is not limi- 
ted to reactors of the power rating, total flow or inlet conditions discussed 
here. 

Rrogramming the model imposes some limitations on the scope of the 
problem, although it almost completely eliminates the computational effort 
xnvolved, once the program has been written, to study a particular parameter 
set. Tne computer storage size and the time available to run the program 
are the primary limitations on the detail to which the coupled problems can 
be solved. With the facilities available at the XIT Computation Center, the 
model had to be formulated in terms of a one-dimensional problem. To make 
the results more realistic, correctional factors are generated internally 
during the course of running the program to re-insert the two-dimensional 
nature of the problem into the various nuclear calculations. The computer 
storage size not only reduced the problem statement to one-dimension but 
limited the number of nuclear groups that could be studied to two. 

Since the problem has to be formulated in one dimension, a detailed . 
analysis of the effect of control rods on the flux and power distribution is 
not readily achieved. The height to which control rods are inserted into 
the core causes a variation of the axial power distribution. Likewise 
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. the presence of control rods introduces local variations into the radial 
power distribution which cannot be considered in terms of rotational sym- 
metry. To determine whether the particular reactor configxiration and con- 
stituent make-up lead to a critical system, the assumption has been to load 
the core homogeneously with a poison. If the poison concentration required 
to give the reactor a reactivity of zero or more is positive, the reactor 
will attain criticality. 

These opening remarks have dealt primarily with the nuclear aspect of 
the problem, since their solution most severely limits the scope of the 
computational model which can be used. The remaining sections of this chap- 
ter will present the concepts used in solving the coupled problems. The 
I details of their implementation are left to the appendices for presentation. 
3.3 Nuclear Model and Reactor Subdivision 

The model chosen to describe the steady state flux and power distribu- 
tion is that of two-group diffusion theory, because of the relative simpli- 
city with which it can be applied and a solution obtained, in contrast to 
the greater complexity which results when a higher order transport theory 
approximation is used. It does suffer from a lack of precision, particular- 
ly in the fuel regions. The basic eqviations which apply to this model for 
the j “ group (j = 1, fast; j = 2, thermal) are 
a. Conservation Equation 




b. Flux Boundary Condition at an Interface 

♦ * 




c. 



Current Boxmdary Condition at an Interface 
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c. Fovrer Generation at a Spatial Point 
r- V- 1 -^*5 



ill those terns are assur:;ca bo constant vdthin a given region except the 
iliSv {5^ and the local power generation rate ?. One assuraption made here 
has been that the power generation rate P arises only from direct fission 
particle heating; the model thus neglects the effect of gamma heating in re- 
gions other than the fuel. The conservation equation is formulated in terms 
of central differences. 

The equations, describing the flux distribution, have been applied to 
a reactor which is subdivided as shown in Figure 3.1. The reactor can bo 
broken into a total Of 49 different subdivision (in the present computer 
program) of which 30 are peculiar to tho core. Tno exterior subdivisions 
define either the radial or axial reflector regions. Tne nucloar properties 
’.Ithin each of the 49 regions are assumed to be constant and are determined 
from homogerlaation of a cell producing povrer at a rate which is character- 
istic of that given radial region of the core. Rotational symmetry about 
tho reactor centerline is assu.v.cd. 

3.3.1 Coll Homo a r.n n a ui o n 

Tna I'aot that tho coolant, particularly in its boiling first pass 
through a coll, can undergo largo volumetric changes requires that the nuoloar 
calculations include a provision for this offeot. Based upon tho power gen- 
eration rato \Jithin a given region of the core, tho ilrst and second pass 
coolants '.rlthin that region are assigned average density values. Tnis as- 
wi.en .l^ces tne proper w»cs ^nan tn**) ohtrey core subQ.pVision5. 
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value. In the calculations, the flux shape within the cell is assumed to be 
rotationally symmetric about the center of the cell. The fact that the cells 
are set on a square pitch, as shown in Figure 1.1, is circumvented when ap- 
plying the rotational geometry by assuming that an equivalent exterior cell 
radius can be defined such that the area enclosed by it is equal to the area 
enclosed by the square perimeter. The diffusion coefficient homogenization 
is accomplished by converting the diffusion coefficient back to its equiva- 
lent transport cross section, homogenizing the transport cross section by 
flux and volume weighting, and converting this homogenized transport cross 
section back to an equivalent diffusion coefficient. 

The cell region homogenization is performed on a strictly one-dimensiona 
basis at the position in the cell where the average coolant density was 
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definad. Tne boundary conditions imposed are that the neutron cxirrent is 
zero at the origin and at the equivalent cell radius. Additionally, the 
assumption is made that the leakage cross section for neutron loss in the 
axial direction is zero. 

I 3.3.2 Axial Nuclear Calculations 

Vath the generation of the homogenized subdivision properties at some 
I given radial position in the reactor, it is possible to calculate the flux 
and power shape along an axial line in this region. For this calculation the 
boundary conditions are zero flux at the top and bottom of the reactor (which 
i includes the axial reflector regions). The leakage cross section, which re- 
j fers to neutron flow in a radial direction, can now be either positive or 
negative, respectively, depending upon whether the net number of neutrons 
flovdng into the axial region is negative or positive. The details of the 
way in which the leakage cross section is generated are presented in Section 
A. 12; equations (A-?1 ) through (A-?4), which summarize the results, are 
quite lengthy and will not be repeated here. 

One of the results, which is obtained from the axial calculations, is 
the axial power distribution in a typical cell within that radial region of 
the core. 

3.3«3 Radial Nuclear Calculations 

The power distribution radially across the core is calculated after 
boundary conditions of zero current at the reactor centerline and zero flux 
at the edge have been assigned. The properties used in this calculation are 
the same as those used in the axial calculation except that only the sub- 
division properties at mid-height in the core are used. The leakage cross 
section for this type of calculation now refers to loss out through the top 
and bottom axial reflector regions. The leakage cross section is defined in 
terms of t.he system "buckling" 'and the technique used to generate it is 
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described in Section A. 13* 

The radial calculation is used to determine the flux and power disti*i- 
bution across the core. The total povjer produced in each radial region of 
the core is assigned to the cells in that radial region on the basis that 
they are producing at the sane rate. Fron the axial calculations, which 
detemined the axial power distribution, the power produced in a given length 
of fuel rod is fixed; with the conpletion of a radial reactor calculation, 
the power generation nap for the core is fixed. 

After a radial calculation has been conpleted, the criticality of the 
system is calculated. Based upon the results of this calculation, the homog- 
enous poison cross section is varied such that the reactor meets the speci- 
fied value of criticality. If the poison concentration does in fact have to 
be changed, the new concentration is inserted and another radial calculation 
is performed. The procedure is repeated until the desired criticality is 
achieved. 

3.3.^ Sequence of Performing Nuclear Calculations 

The nuclear properties of all materials id. thin the core are assumed to 
be constant. In the generation of macroscopic cross sections and diffusion 
coefficients for each of the reactor subdivisions, only the coolant regions 
show variation in density. Thus, specifying the macroscopic properties of 
all cell regions other than those for the coolant and the microscopic proper- 
ties of the coolant fixes the external nuclear inputs to the problem. 

Before a series of nuclear calculations is started, the coolant densities 
at the different locations within the core are assumed to be known. For a 
given radial region, the properties of the different axial subdivisions are 
homogenized starting at the lowest subdivision in the core and working to the 
top subdivision. After the axial calcxilations are performed on this radial 
region, the sequence advances to the next outward radial subdivision and is 



46 



repeated. When the axial calculation in the outermost radial core subdivi- 
sion has been completed, the radial calculation is performed. 

Tnis approach can be characterized as being a "marching" type of solu- 
tion, The major step is outwards, the minor steps are upwards. VStth the 
inclusion of the leakage across sections, it provides a satisfactory solution 
to the two-dimensional nuclear problem using a one-dimensional model. 

Heat Transfer and Thermodynamics 

These two problems are considered together because of their close rela- 
tionship. Actually, heat transfer is dependent upon fluid flow, but the 
technique used to determine the fluid flow profiles require slightly more 
than the "broad brush" treatment of this section. 

The solution to the nuclear problem, previously discussed, determines 
the power generation rates of a typical cell in each of the radial regions 
of the core. The axial nuclear calculations determine how much power is 
produced in a given axial slice of the different typical cells. Within two 
adjacent axial slices of the same cell, the variation of heat transfer and 
thermodynamic properties can be calculated by utilizing the technique 
indicated in Figure 3*2. All the heat transfer properties and thermodynamic 
properties within a given core subdivision are assumed to be constant. 

3.^.1 Selection Basis for Average Coolant Properties 

The axial position within an axial slice at which the average coolant 
properties are defined is made to coincide with that position in the subdi- 
vision at which half the power produced has been generated. This point may 
or may not occur at the median position of that subdivision. Ihis assumption 
neglects the curvature of the power generation rate within the subdivision. 
3.4.2 Calculation of the Heat Flow Fraction 

During the course of the cell homogenization calculations, a radial 
flux plot is made across the cell at the position where the average coolant 
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SCHEMATIC FOR THERMODYNAMIC CALCUIATIONS 
Figure 3-2 



properties occur. Within the fuel material, the "fine" radial variation of 
the power generation rate is calculated. Tne shape of this curve is a fac- 
tor in determining what fraction of the heat produced in that segment of the 
cell will flow either inwards or outwards, based on the thermal resistances 
that are present. 

Tne heat flow fraction can be described in terms of an analytical func- 
tion. In the discussion of Chapter 2, the power distribution across the 
fuel in a cell was assumed to be constant. Using the discrete values of 
power generation in the fuel, as determined by the nuclear calculations, an 
analytical function is generated which defines the local power curve. The 
function used is a fourth order polynomial, which is found by making a least 
squares fit. 

Using the local calculated value of the first and second pass heat 



transfer coefficients, the heat flow fraction to the first or second pass 
can be calculated. Appendix B demonstrates in detail the procedure which 
is used, 

3.4,3 Calculation of the Average Coolant Properties 

Tne fact that power can be transferred from the second coolant pass to 
the first across the fuel tube makes the direct solution for the average 
coolant properties impossible. The solution is obtained by trial-and-error, 
the question being which approach will most expeditiously produce the solu- 
tion. The techrJ.que which has been used is to first xmcouple the interac- 
tions between the tv?o coolant streams, work through the core, first upwards 
along the first pass channels and then back down along the second pass chan- 
nels. Using the heat flow fractions and ^tempe^ature differentials between 
the two coolant streams, as determined by the preceding iteration, it then 
is possible to generate a new set of heat flow fractions and coolant proper- 
ties. At the end of this subsequent iteration, the values generated are 
checked against those from the previous iteration; if the two values agree 
within specified convergence limits, the iterations cease and the problem 
is assumed to be solved for the given core power generation map. 

3 . 5 Fl-uid Flow 

All flow of coolant through the core is bounded on the bottom and top 
of the core by common plenums. The different first or second pass flow chan- 
nels thus are equivalent to a set of parallel circuits. Because the flow 
originates and exits into common plenums, the pressure drop across the core 
for all first pass flow channels must be the same and the pressure drop for 
all second pass flow chan nels must be the same. 

As noted in the preceding section, the calculation of the coolant prop- 
erties at each of the different core subdivisions is obtained by uncoupling 
the counterflow effect. That this method of solution was used is caused by 
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the req^uireaents for determining the fluid flow profiles across the core. The 
sequence of operations described in the preceding section involved sweeping 
out across the core, first for the first pass channels and then for the 
second pass channels. 

After a sweep has been completed, the pressure drop across the core for 
the individual coolant channels is calcuiatod. I:' the pressure drops do not 
agree within specified convergence limits, the flow through the channel is 
either increased or decreased, depending upon whether the pressxire drop is too 
small or too large. Wnen the individual flow rates have been calculated to 
yield the sane pressure drop for all the channels, the total flow through the 
core is calculated. If this total agrees iTith that specified in the problem 
statement, the calculation proceeds to either the second pass sweep or to the 
verification of no significant change between average coolant properties between 
two complete radial sweeps. The problem is terminated if the pressure drop vs 
flow rate curve has a negative slope, i.e., that the flow conditions are not 
stable. 

The total flow through the first pass channels is specified by the input 
to the problem. Either of two options are employed for the second pass flow. 

If the average enthalpy of the upper mixing plenum is below the enthalpy of 
saturated liquid at the plenum pressure, all the first pass flow will be as- 
sumed to go to the second pass. If, on the other hand, the average enthalpy 
of this plenum is above that for saturated liquid, only that fraction of the 
first pass flow, calculated as the net steam quality, will go to the second 
pass channels. This second option corresponds to the concept of the CFR, 

3.6 Sequence for Solving the Coupled Problem 

The idealsituation which could be encountered would require that the 
power generation rates within the core were constant. Using this as a start- 
ing point, the average subdivision coolant properties are calculated. The 



50 



problem then shifts to nuclear calculations and generates the power distri- 
bution which would result if the assumed coolant properties did exist. Tne 
calculated power distribution will not agree with the assumed, until a suf- 
ficient number of iterations have been performed for convergence to take 
place . 

Tne power generation nap is averaged out between the two nuclear itera- 
tions, subject to the condition that the total power produced id. thin the 
core is equal to its stated input value. This averaging process is based 
on weighting the calculated value by 0.75 and the value of the previous iter- 
ation by 0.25. These weighting factors were chosen to eliminate the possi- 
bility of oscillations as the iterations progressed toward convergence. 

Once the new power nap has been established, the problem shifts back 
to generating a new set of average coolant properties. For a given power 
mapping, the resultant average coolant properties have already achieved con- 
vergence before the generation of a new map starts. Tne coupled problem is 
assumed to have achieved convergence when subsequent poi^er mappings agree. 
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Chapter 4 

CHARA.CTERISTICS OF THE CFR 

h.l Description 

Tne concept of the CFR arrangement is the same as that of the convention- 
al counterflow tube-and- shell heat exchanger. The difference between the CFR 
and the passive heat exchanger is that the tube material itself contains nu- 
clear fuel and generates heat which is transferred to the two coimterf lowing • 
fluids which surroxuid the tube. On the detailed scale, Figure 1.1 presented 
schematically the concept as it exists for a single cell or fuel element. 
Section 1,2 discussed some of the advantages of this concept. 

Tito alternatives are available for this concept as regards the method in 
/ 

which moderation of the neutron spectrum can be achieved. One is to employ 
the returning feedwater as the moderator. Tne other is to consider the use 
of a solid material. For both these concepts, the presence of a third clad- 
ding region is required, this region separating the first pass coolant from 
the moderator. In the case of feedwater moderation, separation of the first 
pass coolant and moderator prevents mixing of the two fliads and uncouples 
the effects of the moderator density variation on the power distribution. 

The returning feedvrater at a temperature of 404°F (Figure 1.2) mixes with 
saturated water recirculated down from the top of the core to give a first 
pass entrance temperature of approximately 520°F. Boiling occurs in the first 
pass channel but the temperature rise from entrance to exit is small since 
only 10^ steam is produced (Section ZA), the saturation temperatxrre for 
steam at 900 psia being 532 ® F, Tnus, there is a variation of the temperature 
driving force between coolant and moderator which varies only from 128® F to 
116®F along the height of the coolant-moderator cladding region. 

As a first choice for a solid moderator, beryllium oxide has been chosen. 
Trh.- m^^Drial is compauiblc \Jith water and provides the best moderating 



properties of a solid material. Tne utilization of a solid moderator frees 
the power distribution in the fuel element from the effects of density varia- 
tion of the moderator. 

As stated earlier in this section aind also in Section 2.4, the core has 
been designed to produce first pass coolant at the saturated state vd.th 10^ 
steam. This choice is arbitrary. It x^as chosen since the resultant "DNB 
ratio" or "critical heat flux ratio" is not approached and the effect of 
coolant density change does not severely restrict the design due to flow insta- 
bility problems. For the range of conditions studied, the maximum calculated 
"critical heat flux ratio" was found to be of the order of 0.20. Using the 
Tong model to describe either the maximum enthalpy rise or maximum heat flux 
(Appendix, Section C.6), the value of the "critical heat flux ratio" was de- 
termined to be the larger of either the ratio of local to burn-out heat flux 
or the actual to burn-out enthalpy rise of the coolant. 

Figure 4.1 and Figure 4.2 schematically depict the flow of the coolant 
and recirculating water in the H 2 O and BeO moderated CFR's, respectively. Tne 
solid lines in both figures extending from the upper to the lower tube sheets 
represent the fuel element tube. Within the region defined by the core, these 
tubes contain nuclear fuel. First pass coolant flows up along each of these 
tubes in a small annular region defined by the outer fuel cladding and the 
moderator cladding and exits from the core region into the liquid layer above 
the core, which serves as both an axial reflector and the upper mixing plenum. 
Wet steam rises from the liquid layer and must pass through steam separators 
before it can reach the dry steam plenum located in the upper hemispherical 
region of the pressure vessel; the separated liquid fraction falls back into 
the liquid layer on top of the core. The dry saturated steam is then drawn 
back downward through the core for the second pass and is superheated, exiting 
into the second pass core exhaust plenum where it mixes before being directed 
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SCHEXATIC REPRESENTA.TION OF AN H2O MODEEIATED CFR 

Figure ^.1 
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SCHSMAITC R3PRESENTA.TI0N OF A BSO MODERATED CFR 

Figure 4.2 
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out. of the pressure vessel to the turbomachinery. 

Vfl.thin the core Itself, there is a significant difference between the 
WpO and BeO moderated concepts. For the UpO moderat*»d CFR shown in Figure h.l, 
part of the returning feedwater is diverted into th« moderator region of Lho 
core. This is accomplished by baffle plates at the upper region of the radial 
reflector. This portion of the feedwater-moderator flows down the core in the 
region of the individual cells, defined by rg and the dashed line indicating 
the outer cell boundary, as shown in Figure 1.1, mixing with the recircula- 
ting saturated water below the core and then entering the first pass channel 
for heating. For the BeO moderated CFR in Figure 4,2, all returning feedwater 
flows down aroiind the exterior of the BeO radial reflector. 

4,2 Selection of Parameters 

Chapter 1, Optimization of CFR Fuel Element Parameters, described some 
of the arbitrary decisions that were made for determining the initial round 
of values for optimized fuel element parameters based on minimum core size or 
maximum power density within the core, subject to certain material constraints. 
The discussion of Chapter 2 was oriented solely to the selection of parameters 
that would lead to an optimized design based on heat transfer considerations 
for completely uniform power generation within the fuel material. In this 
respect, fuel and cladding materials were chosen and the cladding thickness 
fixed. 

The nominal inlet first pass flow velocity has been set at 7.5 ft/sec. 

This selection is somewhat arbitrary. One of the problems inherent in this 
concept is that first pass flow is through an annular column outside the fuel 
clement. The entering coolant is pressurized water with a much higher density 
than the exiting second pass steam. The required area for first pass flow per 
channel can be easily determined by the selected second pass exit steam thermo- 
dynamic conditions, flow rate and channel area as a function of first pass 
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inlet velocity* To make the selected first pass radial dimensions realistic, 
the width of the resultant annulus cannot be beyond manufacturing tolerances. 
The smaller radius of the annulus will be several times larger than the chan- 
nel radius for the second pass flow. Because of the ratio of densities between 
the two coolants, the resultant width of the annulus can become quite small. 

The lower the inlet velocity of the first pass coolant is made, the greater 
the width of the annulus must be. 

The parameter combinations displayed in Table 2,2 were used in determi- 
ning the reactor characteristics set forth in this chapter, Vfi.th the earlier 
specification of first pass inlet velocity and first pass exit steam quality, 
all radial physical dimensions of a cell assembly are fixed except the equiva- 
lent cell radius for a given second pass exit velocity. What the value of the 
equivalent cell radius would be was determined by fixing the cell raoderator- 
to-fuel volume ratio. In the case of the H 2 O moderator, the raoderator-to- 
fuel volume ratio was fixed at 2, for the BeO moderator at 10, 

Investigation of the parameters for an HgO moderated reactor with a 
second pass exit steam velocity of 100 ft/sec yielded the following results. 

For the smaller values of (r^/r 2 ), the ratio of outer-to-inner fuel material 
radii, the core could not be made critical. The cladding thicknesses had 
been fixed and for the small values of {r-^lrz) the cladding acted as a poison 
to prevent criticality, regardless of the fuel enrichment, occupying a large 
relative p>ercentage of the total core volume. At the value of (rjfrz) equal 
to 2,5, the core would not go critical with fuel enrichments of 15^ but 
would go ciritical at fuel enrichments of When the value of (r^/r 2 ) was 

increased to 2.75» the core would go critical at 15/^ with the thermal flux 
accounting for approximately 75/^ of the power produced. The fuel enrichment 
of 50 ^ was used to continue scoping the design with (r^/r2) fixed at 2,5* 

Huring the course of earlier investigation, the values of calciilated 
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Table 4.1 



CALCULATED PROPERTIES OF A 50^J ENRICHED, HpO MODERATED CFR WITH MODERATOR- 
TO-FUEL VOLUME RATIO = 2. GEOMETRICAL PROPERTIES SPECIFIED BY TABLE 2.2 



WITH V2 = 100 FT/sEC AND = 2.5. 



Assumed Max Clad-Coolant Temp Diff (F®) 


245 


195 


145 


Kaximum/Average Power (Radial) 


1.260 


1.216 


1.157 


Fast Flux Power/Total Power 


0.72 


0.73 


0.74 


Thermal Poison Cross Section (cra"^ ) 


0.1460 


0.1443 


0.1417 


Total Second Pass Flow (10^ Ib/hr) 


1.966 


1.983 


2.016 


Temperatures (®F) 








Average Second Pass Exit 


863.4 


853.7 


834.1 


Maximum Second Pass Exit 


893.0 


886.3 


870.5 


Maximum Cladding 


1164. 


1087. 


998. 


Maximum Fuel 


1321. 


1212. 


1090. 


Core Length (cm) 


156.8 


221.9 


360.0 


Core Radius (cm) 


60.2 


58.9 


57.3 


Power Density (kw/liter) 


32.1 


23.7 


15.5 



maximm cladding temperature exceeded the design constraint of 1350 when 
the equivalent AT lay in the region of 145 F^ to 245 F° (corresponding to 
maximum cladding temperatures between 1100 ®F and 1200 °F for the \iniform 
power assumption). Thus, the next iteration of calculations worked 'in this 
region of (r^/r2) at 2.5. The results obtained indicated that the maximum 
calculated cladding temperature was 11 64 ®F for the combination of parameters 
specified for a T of 245 505^ enrichment and 100 ft/sec steam exit velocity. 

The principal properties for this set of calculations are shown in Table 4.1. 

The results shown in Table 4,1 do not approach the temperature constraint 
placed on either the cladding or fuel. In order to achieve a set of parameters 
that would exceed the constrained maximum cladding temperature, all dimensions 
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and properties of the previous calculation wore held constant except the core 
length. Two additional parameter combinations were solved, one with the core 
length reduced by 25 cm, the second by 50 cm, of the calculated length for 
the assmed cladding-coolant temperature differential of 2^5 F®, The results 
of these calculations are shown in Table 4,2, By graphical interpolation of 
these results, it was determined that the cladding temperature constraint would 
be achieved if the core length was 111,0 cm or 45.8 cm less than the length 
determined for the clad-coolant temperature differential of 245 F®. 

Parameters for the BeO moderated core were also taken from Table 2.2. For 
the case of the BeO core, those dimensional properties peculiar to an assumed 
exit velocity of 300 ft/sec were investigated. As shown in the graphical 
presentation in Chapter 2 and evident from Table 2.2, the lowest value of 
(r^/r 2 ) for which results are available for the four temperature differential 
variables investigated is 4.0. This parameter was selected as the control 
parameter. The principal data figures arising from this calculation are 
shown in Table 4,3. By graphical interpolation, the set corresponding to an 
assumed temperature differential of l65'F® was foimd to yield a maximum 
cladding temperature of 1350 ®F. 

Using the interpolated results of Tables 4.2 and 4.3, a complete set of 
the properties pertinent to H 2 O and BeO moderated cores that yield the con- 
strained maximum cladding temperature are shown in Table 4,4, The fuel tem- 
perature was not found to be the limiting constraint in either case. 

For the results shown it is immediately apparent that the desired average 
steam exit temperatxire of 955 °F has not been achieved. The mean outlet tem- 
peratures are 886,7 ®F for the H 2 O moderated core and ^^ 6,6 ®F for the BeO 
moderated core. On the other hand, the calculated outlet flow rate has ex- 
ceeded the assumed design point of 1.7?6 x lO^lb/hr; for the H 2 O moderated 
core it is 1,9^9 x 10^ Ib/hr, for the BeO moderated core 1.902 x I05lb/hr. 
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Assumed Maximum Clad-Coolant Temperature Difference AT for Second Pass 

Exit Coolant at 955 

CALCUUTED VS ASSUMED CLADDING-COOLANT TEMPERATURE 
DIFFERENCE FOR H 2 O AND BEO MODERATED CORES 

Figure 4^3 




CLADDING TEMPERATURE OBTAINED BY VARYING FUEL TUBE LENGTH OF H 2 O MODERATED 
CORE WITH ALL OTHER PARAMETERS CONSTANT FROM CORE WITH AT(CLAD-COOUNT)=245F° 



Figure 4.4 
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Table 4.2 



INTE21P0UTI0N TABLE SHOWING PARAMETERS OF H2O MODERATED CFR 



Core Length (cm) 


106.8 


(111.0) 


131.8 


156.8 


Maximum/Average Power (Radial) 


1,254 


1.259 


1.269 


1 .260 


Fast Flux Powor/Total Power 


0,72 


0,72 


0.72 


0.72 


Thermal Poison Cross Section (cra*^ ) 


0,1435 


0.1435 


0.1435 


0.146 


Total Second Pass Flow (10^ Ib/hr) 


1,962 


1.969 


1.978 


1.966 


Temperatures (®F) 










Average Second Pass Exit 


888,8 


886.7 


876,6 


863.4 


Maximum Second Pass Exit 


917.9 


901.8 


891.8 


893.0 


Maximum Cladding 


1371.2 


1350. 


1263.4 


1163.8 


Maximum Fuel 


I6l4, 


1590. 


1471. 


1321. 


Core Radius (cm) 


60.2 


60.2 


60.2 


60.2 


Power Density (kw/Hter) 


47.1 


45.3 


38.2 


32.1 



Ibis variance from the assumed design point has been caused by more heat 
flowing to the first pass coolant and thus causing a higher exit steam quality. 
The actual heat transfer coefficients were calculated to be higher than the 
assumed value used to generate Table 2,2, thus reducing the resistance for 
heat flow to the first pass coolant. Also, Table 2,2 was generated under 
the assmption of flat power radially across the fuel in the annular fuel 
tube; in fact, the voluraetidc power generation rate decreases as the inner 
radius of the fuel material is approached. Even though the results shown do 
not agree exactly with the Initially assumed temperature design point, they 
illustrate the salient features of either an H2O or BeO moderated CFR which 
lies in the region of maximum power density. 

In concluding the remarks on the selection of parameters, additional 
comment is warranted on the choice of assumed exit velocity and moderator- 
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Table 4.3 

INTERPOIATION TABLE SHOWING PARAMETERS OF BEO MODERATED CFR 



Assumed Max Clad-Coolant Temp Diff (F^) 


145 1 


I (165) 


195 


245 


Maximum/Average Power (Radial) 


1.433 


1.435 


1.437 


1.442 


Fast Flux Power/Total Power 


0.97 


0.97 


0.97 


0.97 


Thermal Poison Cross Section (cm”^ ) 


0.345 


0.339 


0.332 


0.320 


Total Second Pass Flow ( 10 ^ Ib/hr) 


1.903 


1.902 


1.899 


1.896 


Temperatures (®F) 










Average Second Pass Exit 


916.7 


916.6 


916.4 


916.2 


Maximum Second Pass Exit 


1081.2 


1081.0 


1080.8 


1080.3 


Maximum Cladding 


1310. 


1350. 


1410 . 


1513. 


Maximum Fuel 


1592. 


1682. 


1797. 


2015. 


Core Length (cm) 


365.9 


318.9 


263.9 


181 .4 


Core Radius (cm) 


97.4 


97.7 


98.2 


101 .6 


Power Density (kw/liter) 


5.3 


6.0 


7.2 


9.9 



to-fuel volume ratio for the two moderators studied. Neutron economy studies 
show that a core has minimum leakage for a given volume when the length-to- 
diameter ratio is in the vicinity of unity. Inspection of Table 2.2 shows 
that the calculated core lengths generally increase as the second pass exit 
velocity increases. Staall core height is peculiar to low velocities. In 
order to make the core L/D ratio approach unity for low velocities, the HgO 
moderator was used. At the higher velocity, the BeO moderator was used. In 
the case of the H2O moderated reactor, the calculated L/D ratio for the core 
is 0.918 with the moderator /fuel volume ratio of 2 . For the BeO moderated 
reactor,, the calculated L/D ratio is 1 . 63 ; to make the L/D ratio equal unity, 
the moderator/fuel volume ratitf would have to be increased to 29.5 vice 10 
which would consequently require new cross section data to account for the 
change in neuti^n spectrum. 
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Table 4.4 



CHARACTERISUCS OF A 57.4 KW^ COUNTER FLOW REACTOR 

MODERATOR 





M 


BeO 


Core Dimensional Parameters 






Diameter D (inches) 


47.5 


76.9 


Length L (inches) 


43.6 


125.6 


Composition (Volume i>) 






Moderator 


51.9 


85.4 


Fuel 


25.6 


8.82 


Cladding 


8.5 


1.08 


First Pass Coolant 


11.0 


4.11 


Second Pass Coolant 


3.6 


0.45 


Cell Dimensional Parameters (cm) 






Radius of Second Pass Flow Channel ri 


0.332 


0.388 


Outer Radius of Inner Fuel Cladding Annulus r£ 


0.383 


0.439 


Outer Radius of Fuel Annulus r^ 


0.958 


1.756 


Outer Radius of Outer Fuel Cladding Annulus r4 


1.008 


1.807 


Outer Radius of First Pass Coolant Annulus r^ 


1.165 


2.158 


Outer Radius of Moderator Cladding Annulus rg 


1.216 


2.209 


Equivalent Radius of Cell Assembly r-^ 


1.736 


•5.810 


Lattice Pitch 


3.080 


10.31 


Fuel Element Parameters 






Fuel 


U02 


UO2 


Enrichment (^) 


50 


50 


Cladding (All Regions) 


Inconel 


Inconel 


Number of Fuel Elements 


1198 


282 
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Table 4,4 (Continued) 



MODERATOR 





HoO 


BeO 


Temperature (°F) 






Fuel Maximum 


1590 


1682 


Cladding Maximum 


1350 


1350 


Heat Transfer Data - First Pass Flow 






Coolant 


H2O 


H2O 


Flow^ ( 10 ^ Ib/hr) 


1.776 


1.776 


Inlet Temperat\ire (®F) 


520 


520 


Inlet Enthalpy (Btu/lb) 


511.9 


511.9 


Outlet Temperature (°F) 


527.8 


527.7 


Outlet Enthalpy (Btu/lb) 


595.7 


593.6 


Outlet Steam Quality (^) 


11.09 


10.71 


Inlet Presstire (psia) 


880.0 


880.0 


Channel Pressure Drop (psi) 


10.6 


11.7 


Restrictor Pressure Drop (psi) 


5.7 


5.7 


Restrictor Area Ratio 


0.25 


0.25 


Inlet Velocity (ft/sec) 


7.5 


7.5 


Heat Transfer Surface (ft^) 


901 


1097 


Average Heat Flux (Btu/hr/ft^) 


165000 


132200 


Heat Transfer Data - Second Pass Flow 






Coolant 


H20 


H2O 


Flow ( 10 ^ lb /hr) 


1.969 


1 .902 


Inlet Temperature (®F) 


527.8 


527.7 


Inlet Enthalpy (Btu/lb) 


1196.4 


1196.4 


Outlet Temperature (®F) 


886.7 


916.6 


Outlet Enthalpy (Btu/lb) 


1445.9 


1466.4 
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Table (Continued) 



MODERATOR 





H 2 O ■ 


BeO 


Outlet Degree Superheat (F^) 


360.1 


405.9 


Inlet Pressure (psia) 


869.4 


868.3 


Channel Pressure Drop (psi) 


9.4 


119.2 


Restrictor Area Ratio 


1.0 


1 .0 


Outlet Velocity (ft/sec) 


109 


389 


Heat Transfer Surface (ft^) 


297 


236 


Average Heat Flux (Btu/hr/ft^) 


165000 


218000 



4.3 Graphical Presentation of Property Variation 

Figures 4,5 through 4.13 show the variation of different properties with 
an H 2 O or BeO moderated core. The set of parameters defined in Table 4.4 
arose from interpolation of the properties shown in Tables 4.2 and 4.3. The 
data given in Figures 4,5 through 4.13 is not that of Table 4.4 but results 
from performing the following calculations on the core configuration headed 
by a core length of 131.8 cm in Table 4,2 for the H 2 O moderated core and by 
195 in Table 4.3 for the BeO moderated core. 

Figure 4,5 shows the variation of power radially across the reactors. 
Both curves have been plotted through a plane running at raid-height through 
the reactor (one-dimensional) with a buckling calculated for leakage in the 
axial direction. The amount of power peaking at the edge of the BeO modera- 
ted reactor is indiscernible - the reactor produces 97^ of its power with 
neutrons having an energy above 1,85 ®v; the radial reflector is a 15 cm 
thickness of BeO, 

figures 4,6 through 4,13 show the linear power, cladding temperature, 
coolant temperature and coolant enthalpy distributions for the H 2 O and BeO 
ffloderated cores. The abcissa for these plots has been normalized to the 
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LINEAR PO\ffiR DENSITY DISTRIBUTION FOR AN H 2 O MODERATED CFR 

Figure 4,6 
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povjer density distribution for a beo moderated cfr 

figure ‘4,7 
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CUDDING TEMPERATURE DISTRIBUTION FOR A BEO MODERATED CFR 

Figure 4,9 
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COOLANT ENTHALPY DISTRIBUTION FOR AN H 2 O MODERATED CFR 

Figure 4.12 
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Figure 4.13 
7 ^ 



core length. For each of the figures, two curves are shown - one for "Radial 
Region 1". the other for ."Radial Region 6", "Radial Region 1 " is the right 
circular cylinder at the center of the core extending the height of the core 

and defined by radii of 10,1 cm and l6.4 cm for the H2O and BeO moderated 

cores, respectively, "Radial Region 6" is the right annular cylinder extending 
the height of the core, being defined by radii of (50.5 cm, 60.2 cm) and (82.0 
cm, 98.2 cm) for the H2O and BeO moderated cores, respectively, Ihe proper- 
ties defined for IJie two curves are the properties related to a fuel element 

producing heat at the average rate of all fuel elements within that particular 
radial region. 

4«4 Remarks on Flow Stability 

Flow throvigh the core, either for first or second pass flow, is through 
a group of channels connecting two plenums. Since the channels all begin 
at the same point and end at the same point, the pressure drop between plenums 
must'c. be the same, regardless of which individual flow channel is followed be- 
tween plenums. Since heat is added to the coolant as it transits the core, 
the density change of the coolant influences the pressure drop along the 
channel, the density change being a function of the coolant flow rate and 
the heat input. Radial flow stability across the core is the subject of 

Appendix E, but a brief summary of the points made there and comments on the 

calculated values for the two configurations presented in Table 4.4 will be 
made. 

As a first step in the discussion, consider the values determined for 
the two reactors for first pass flow. In the case of the H2O moderated core, 

the total calculated first pass drop was 10.6 psi with 5*7 psi (or 53*8^ of 

the total drop) occurring at the inlet. For the BeO reactor, the total drop 
was 11.7 psi with 5.7 psi (or of the total drop) occurring at the inlet. 

For both reactors, the inlet velocity was 7.5 ft/sec and the thiroat area 
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ratio was 0,25, giving a nominal 30 ft/sec velocity through the throat. 

Since boiling takes place in the first pass flow channels, flow insta- 
bility would be present If no means were used to add a pressure drop Inde- 
pendent of the flection and momentum change within the channel causing the 
intrinsic channel pressure drop. Because of the momentum change within the 
boiling channel, the curve of pressure drop vs flow rate (at constant total 

heat input) has a negative slope. Ihus, if due to some circumstance, the 

flow in a boiling channel was reduced, the pressure drop across the channel 
would rise and the flow would be further reduced. Similarly, if the pressure 
drop across the channel was increased, the flow would decrease. 

To avoid this possibility, a nozzle or restrictor has been installed at 
the entrance to each flow channel. The characteristics of such a device are 
that the slope of a curve of pressure drop vs flow rate through it is always 
positive. When the curve of pressure drop vs flow rate for this external de- 
vice is added to the cv^ve of pressure drop vs flow rate for the heated chan- 
nel, the desired result is a cruve that has a positive slope over the antici- 

pated operating conditions (flow rate and heat input) of the channel. 

The data presented in Table k.J was derived by graphical interpolation 
or results calculated for reactors of different physical configuration. The 
calculated results in all cases showed a maximum variance of 0,1 psi for 
total pressure drop between inlet and mixing plenum for first pass flow chan- 
nels across the core when the total first pass flow was equally divided among 
the different channels. Vfl.thin the convergence limits specified during nu- 
merical solution of the problem, this variance was considered to be acceptable 
(0,1 in 10,6 psi for the H 2 O moderated reactor, 0,1 in 11,7 psi for the BeO 
moderated reactor, in both cases less than 1^ variance), Dxiring the course 
of scoping the design, larger variances were encountered for some parameter 
combinations and the flow rate through individual channels had to be varied 
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to achieve the same pressure drop between plenums, regardless of which flow 
channel was selected for performing the calculations. 

4.5 Reactor Control and Criticality 

Tlie schematic representations of Figures 4,1 and 4.2 indicate control 
rods entering the core from the bottom. In the case of the boiling water 
reactor design, coolant rods normally enter from the bottom of the core since 
the power distribution is skewed toward the bottom of the core because of the 
coolant moderator density distribution and its coupling to the power distri- 
bution through axial vaid.ation in moderating properties. 

Ihe preferred direction of control rod Insertion would be downward. If 
the mechanical, electrical or hydraulic mechanisms for inserting control rods 
fail, the force of gravity would seat the rods inside the core providing that 
the rods are not bound by the failed mechanism. If insertion is in an upwards 
direction, as required for the CFR application, compressed springs or some 
other form of safety device must be relied upon to store sufficient potential 
mechanical energy to seat and hold the rods against gravity in the event of a 
power failure to the control rod drive mechanism. 

Aside from the advantage of using rather than overcoming gravity for 
the insertion of control rods, a shipboard reactor installation should be 
designed for minimum distance above the hull base line. This is due to the 
decrease in metacentiric radius that occurs as the center of gravity of the 
ship is raised. The controlling criterion in this case woxild be athwartship 
stability. 

Power peaking occurs at the bottom of the core of both the H2O and BeO 
moderated reactors, as shown in Figures 4,6 and 4,7, For the H2O moderated 
reactor, the ratio of maximum- to-average axial power is 1,48 and 2,l8 for 
radial regions 1 and 6, respectively. For the BeO moderated reactor of 
Figure 4,7, the ratio of majdLmum-to-average axial power is 1 ,37 &od 2.26 for 
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radial regions 1 and 6, respectively. 

Insertion of the control rods from the top would tend to additionally 
skew the power distribution toward, the bottom. The metallurgical constraint 
limiting the design of the reactor is at the bottom of the core, where the 
highest second pass coolant temperatures are reached. Thus, with control 
rods partially inserted from the top during full power operation, the addi- 
tional skewing of the power distribution would cause the metallurgical con- 
straint to be exceeded and the reactor could not in fact be operated at full 
power. Because of this, it is necessary to design for control rod entry from 
the bottom, thus reducing the axial power peaking but with the attendant 
problems associated with rod drive mechanisms, foundations to elevate the 
reactor assembly and the subsequent reduction in metacentric radius. 

Both of the reactor configurations discussed in Section ^.2 are described 
as "fast", since 6ver half of the power is produced in the "fast" group of 
the two-group calculation. At the time that the cross-sectional data was 
determined for these, two configurations (Table 4.5), the cut-off energy of 
the:- fast group was set at 1 ,85 ev, the lower limit of the data for the GAM-1 
program. (Note that the "fast" cross sections in Table 4,5 do not reflect 
the N-2N reaction for beryllium; no provision is made for this in the GAM-1 
program data.) The lower energy limit of the "fast" group is only 75 times 
that of a "thermal" neutron at 20 ®C, so to avoid misinterpretation it should 
be remembered that "fast" as used here refers to the spectrum extending down 
to 1.85 ev, possibly more appropriately described as the "faster" group as 
opposed to the "slower" group. 

As mentioned in Section 4,2, the enrichment required to just reach crit- 
icality with no poison in the H2O moderated core lies between 15^ 50^5 

for the core with - 2.75, an enrichment of 15^ yielded criticality 

and also a fast/ total flux power ratio of 25$^. No analysis was made to 
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Table 4,5 

INPUT NUCLEAR PROPERTIES OF CELL REGIONS BEFORE HOMOGENIZAnON 



CFR Moderator 


HgO 


BeO 


Spectrum Group 


Fast 


Thermal 


Fast 


Thermal 


Cladding 










Absorption Cross Section (cm“^ ) 


0.003449 


0.1853 


0.00266 


0.0714 


Diffusion Coefficient (cm) 


0.452 


0.265 


0.373 


0.2782 


Transfer Cross Section (cra“^ ) 


0.001161 




0.0001778 




Fuel 










Nu X Fission Cross Section (cm"^ ) 


0.236 


8.21 


0.199 


2.405 


Nu 


2.46 


2.47 


2.447 


2.47 


Absorption Cross Section (cm"^ ) 


0.1768 


3.98 


0.1338 


1.15 


Diffusion Coefficient (cm) 


0.564 


0.275 


0.5782 


0.524 t 


Transfer Cross Section (cm“^ ) 


0.000604 




0.0000979 




Moderator 










Absorption Cross Section (cm“^ ) 


0.0003104 


0.00812 


0.00001438 


0.0005215 


Diffusion Coefficient (cm) 


0.518 


0.438 


0.5734 


0.491 


Transfer Coefficient (cm"^ ) 


0.02881 




0.000491 




Coolant 










Absorption Cross Section (barns) 


0.008224 


0.3173 


0.00002402 


0.1384 


Transport Cross Section (barns) 


25.14 


29.76 


30.66 


29.86 


Transfer Cross Section (barns) 


1 . 1 274 




0.333 





determine the minimum enrichment necessary to reach criticality and its asso- 
oiated power split between the two flux groups. It would appear that the core 
snriohment could be lowered from 505^ and the power split reduced to less than 
half, if this is desired. 

The BeO moderated core has no supporting data to indicate that it can 
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readily produce more than half its power in the thermal group. In the present 
configuration described in Table 4.4, the ratio of moderator- to- fuel atoms is 
approximately thirty. When the calculations were performed on a core with 
approximately ten times this amount of moderation using cross sections cor- 
rected to reflect the shift in spectrum, the fast group still accounted for 
approximately 85^ of the total power produced. 

The data presented in Table 4.4 for the required microscopic poison 
cross section to achieve an eigen value of unity (criticality) represents the 
amount of poison that would have to be spread unifonnly throughout the core. 

The one-dimensional calculation which solves for the radial power distribution 
and poison cross section . for criticality uses as input the homogenized cell 
properties for the radial region defined in the axial plane at core mid-height. 
As such it does not indicate any detailed knowledge regarding radial placement 
of control rods, depth of insertion, local flux distortion due to control rod 
presence, etc. The purpose of the calculation has been to indicate only that 
both of the core configurations presented in Table 4.4 will sustain a chain 
reaction. 

Figures 4.6 and 4.7. graphical representations of the axial variation of 
power density in the annular fuel rods, and the power split between the two 
neutron spectrum groups. Table 4.4, show that the two configurations discussed 
are undermoderated. This fact can be used to suggest a means of controlling 
the power level in the reactor without resorting to the continual adjustment 
of control rods. The water and steam flowing through the first pass coolant 
channels can be considered to come from two distinct sources - feedwater and 
recirculation water. For discussion purposes, the feedwater alone absorbs 
heat, the recirculation water flowing through the core at constant tempera- 
ture and enthalpy. 

In the design condition at lOO^S power, the feed-recirculation water 
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mixture exits from the first pass channels with an average 10^ steam quality 
or vdth the steam occupying approximately 62^ of the cross sectional channel 
area (the void fraction). If the recirculation flow rate is increased, the 
density of the first pass inlet mixture would decrease, since the recircula- 
tion water is at a higher temperature and lower density than the feedwater. 

But the steam exit quality and void fraction would decrease, resulting in a 
higher exit density. (As the recirculation rate is increased, holding the 
feedwater rate and power level constant, the point in the channel at which 
boiling occurs is pushed upwards in the channel. ) The overall effect is to 
increase the density of coolant in the channel. Since the reactor is under- 
moderated, the power level in the reactor would rise. This same effect would 
be present at other points of operation. Thus, the power level in the reactor 
can be partially controlled by varying the recirculation rate. 

Variation of the feedwater flow rate will also produce the same effect. 

If the feedwater flow rate is increased, holding the control rod settings and 
recirculation flow rate constant, the average density in the first pass coolant 
channel will increase, increasing the moderation in the reactor and conse- 
quently causing the power level to increase. A reduction in the feedwater 
flow rate at constant control rod setting and recirculation rate will cause 
the point at which boiling first occurs in the channel to move toward the bot- 
tom of the core, resulting in a higher exit steam quality and void fraction, 
decreasing the moderation in the reactor and hence causing the power level 
to decrease. For the case of the H 2 O moderated CFR, Figure 4,1, some heat is 
transferred to the feedwater in the moderator region through the outer clad- 
ding surrounding the first pass coolant chaiuiel. At the design condition for 
full power operation, the feedwater in the moderator region enters the first 
pass inlet plenum in the subcooled state, no boiling occurring in the modera- 
■tor region. When the feedwater flow rate is Increased, the temperature rise 
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in the moderator region is lowered, thus increasing the average moderator 
density and contributing to a subsequent rise in power level. 
k.6 Flow When Second Pass Coolant Channel Is Blocked 

One of the accidents which may occur to any reactor is the blockage of 
a coolant channel. For the concept of the CFR, this question is of concern 
since each fuel element has two distinctly defined coolant channels. Studies 
were made of the consequences of such an event occurid.ng to the second pass 
coolant channel. It is readily apparent that blockage of a first pass chan- 
nel will yield much higher calculated fuel o r cladding temperatures in the 
associated fuel tube. It would also appear that the possibility of complete 
blockage of a first pass channel is less likely because of the annular shape 
of the channel. 

Comparison of the radial power distribution across the core when all the 
second j^ass coolant channels defined by "Radial Region 1" are blocked with 
the curves of Figure 4.5 for all open flow showed almost no variance. Ihe 
second pass coolant under normal oporating conditions occupies a small per- 
centage of the total volume of the core; additionally, it is of low average 
density, thus not having a strong influence on the power distribution. For 
the configiurations studied, the neutron spectrum is above thermal which also 
tends to mitigate the effect of local property variation. 

Ihe calculated maximum cladding and fuel temperatures for the two con- 
^guratlons^ described in Table 4.4 with no flow through the second pass chan- 
nels of "Radial Region 1" are as follows; 



Moderator 



Temperature (®F) 

Maximum First Pass Cladding 
Maximum F\iel 



H2O BeO 

570.3 563.9 

5427. 9492 . 



Maximum Second Pass Cladding 5427. 9492, 
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Ihese calculations show that the core cannot withstand this type of 
event without damage to the fuel and the Inner fuel cladding. Ihe design 
constraint on maxlmura fuel temperature Is 4500°F. Ihe results quoted are 
for the steady state case and do not Incorporate any provision for tempera- 
ture peaking as the temperature profile goes from that of the open flow, 
both channels, to that of blocked flow, second rpass channel. 

The second pass channel radius (Table 4.4) Is 0.332 cm for the H 2 O mod- 
erated core and 0.388 cm for the BeO moderated core. It Is not possible to 
predict the mechanism which would have to occur to cause a blockage of these 
channels. Ihe most likely place for such a blockage to occur would be In the 
upper steam plenum (Figures 4.1 and 4.2) by which a piece of rust or scale 
from the pressure vessel heat became lodged over the entrance to the channel. 
No restrictor Is present at the entrance to the second pass channels and no 
protuberances exist In the channel between the upper steam plenum and the 
lower second pass exhaust plenum so that If any type of particulate matter did 
reach the second pass side, one would expect It to be swept through to the 
lower steam exhaust plenum. It Is anticipated that any particulate carry- 
over from the first pass mixing plenum to the upper steam plenum would be 
negligible since it would have to transit both the steam-water interface in 
the upper mixing plenum and the steam separators. 

One possible mechanism to cause blockage would be the collapse of the 
second pass coolant-cladding material. The mechanism of failure would be 
brought about by rupture of the cladding material due to swelling of the fuel. 
Approximate burn-up calculations indicate that the core life would be limited 
not be reactivity considerations but by the effects of swelling. Swelling 
occurs in U0£ at about 60,000 to 80,000 MWD/T; burn- up calculations indicate 
that the reactivity lifetime of the two core confiruratlons may be as much 
as an order of magnitude greater. During the early core life, the coolant 
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pressure on both sides of the annular fuel element tends to push the cladding 
firmly against the fuel material. As more fuel is expended, fission gas will 
eventually cause the fuel material to swell, pushing against the cladding 
materials and tending to force them out into their respective coolant chan- 
nels against the restraining action of the coolant pressures. Eventually the 
cladding materials would be ruptured. One would expect that the first clad- 
ding material to fail uncfer this action would be that for the second pass chan- 
nel since it is subjected to compressive stresses and possible buckling. At 
this point, the question of second pass coolant blockage and the temperatiire 
excursion beyond the design constraints become somewhat academic. Rupture of 
the cladding would release radioactive material into the coolant channel. 

4.7 Reactor Start-Up 

The procedure for start-up of the CFR requires that a detailed knowledge 
of the transient behavior, including both nuclear and temperature, be avail- 
able, As stated in Chapter 1, the development and especially the application 
of the mathematics necessary to provide such detailed knowledge is beyond the 
scope of this study. Nevertheless, it is possible to detennine roughly how 
much time will be expended to bring the reactor from zero power at ambient 
temperature to full power at operating conditions by making simplifying 
assumptions. 

During start-up, the recirculating pumps vdll be used to assure flow 
through the first pass channels of the core. The ambient temperature of all 
components will be assumed to be ?0°F. Using the condition that only first 
pass cooling is available, it can be shown that the maximum power that can 
be used, if inlet reactor temperature is 520®F, to give a maximum second 
pass cladding and fuel temperature of 1250°F is 14.9^ for the H2O moderated 
reactor and 8.15$S for the BeO moderated reactor of full power in the steady 
state condition. Based on the heat capacity, mass and change in energy of the 
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various constituents involved, the times involved to heat to the condition of 
1250 ®F maximum fuel temperature are 9*3 minutes and 1,1 hours for the H 2 O sind 
BeO moderated reactors, respectively. It has been assumed that first pass 
coolant is being circulated through the core at full flow, after circulation 
has been started control rods are withdrawn to a position yielding 10^5 of 
design power, and that during the time the coolant temperature is increasing 
the cladding and fuel temperatures do not exceed the final steady state 
values. No saturated steam is generated during this step. 

Because of the larger mass of fuel, radial thickness of the fuel material 
annulus and the low thermal conductivity of the fuel, the BeO moderated CFR 
configuration will not be discussed further. The comparison of times in the 
initial heat-up phase shows that this configuration takes significantly longer. 
After the initial heat-up phase is completed, power is held at the point 
of 20^ of design power. The system is closed until such time as saturated 
steam is produced, then this steam passes up through the steam separators to 
the dry steam plenum and back down’ through the core for second pass heating. 
Initially, no cooling is present on the second pass side of the annular fuel 
elements. After second pass steam enters the core, some cooling commences. 

Upon first entry of second pass steam, the heat transfer coefficient between 
the second pass steam and the inner fuel cladding is low because of the low 
mass flux. The temperature of the second pass cladding remains high, which 
tends to keep more of the heat flowing to the first pass coolant, producing 
more saturated steam. An equilibrium will be reached at which the flow rate 
has not changed but the reactor is now producing about 2^ saturated steam on 
the first pass side, which means that about 20^ of the design second pass 
flow has been achieved but not the design exit temperature. 

Power can now be Increased gradually from 20^ of the design value to full 
power over about a 20 minute period, which corresponds to an increase in 
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reactor power of about 8,8 x 10^ Btu/hr per minute. If a lumped parameter 
transient model Is assumed to describe the temperature behaviort all roots 
are negative and have values ranging from 1.2/hr to 3/^ x 10^/hr for the as- 
sumed ramp- type power rise. In determining some of the characteristic param- 
eters for transient behavior, it was assumed that heat transfer coefficients 
ware constant with time and that second pass flow was initially at its full 
design value when this power Increase was applied. Ihis latter assumption is 
necessary in order to achieve a manual solution without resorting to a compu- 
ter aided numerical approach; the difficulty which prompts this assumption is 
the condition of second pass flow rate and temperature when the system of dif- 
ferential equations is transformed during the solution process. If the second 
pass flow had been variable in this analysis, another root would have been 
added; the addition of this root would change the complexion of the solution. 
Vithout going through a detailed analysis, it is not possible to determine if 
the result«int solution would be stable or unstable. 

Ihis simplified approach indicates that a time of 30 minutes to an hour 
nay be required to get the reactor on the line at full power. If a more de- 
tailed model were developed, the time required could be explored more exactly 
and piK)cedural steps for start-up could be varied to obtain the shortest 
start-up time, staying within the constraints of metallurgical limitations 
and stability. 
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Chapter 5 

REMARKS ON DIRECT CYCLE SHIELDING AND CONTAINMENT 
*).1 Ilinltations 

Ihe utilization of a direct cycle nuclear power plant (in contrast to an 
indirect cycle plant) imposes certain constraints on the arrangement of the 
plant. These limitations will determine to a large extent whether the direct 
cycle concept can be applied to a marine power plant, in which they are rela- 
tively more severe because of the mobility of the plant and hence the increased 
probability of damage to the plant. 

When locating the machinery space within "the ship, the number of alter- 
native choices is reduced from that of the indirect cycle plant. This is 
caused by the recommended requirement that the containment vessel be located 

a minimum distance inboard of the hull equal to one-fifth the beam measured 

1 

at right angles to the centerline at the level of the deep load line. Addi- 
tionally, side shielding must be provided and a cofferdam is necessary to 3re- 
strict the effects of a possible explosion. Meeting these plus any specific 
arrangement requirements peculiar to the ship fixes the location of the ma- 
chineiy space within a limited section of the ship's length. 

In contrast to the indirect cycle plant in which the reactor coolant 
never enters the machinery space, the direct cycle concept necessarily requires 
that the turbomachinery be automated or incorporate provisions for remote 
control. For a water cooled reactor, the water becomes radioactive and decays 
vdth the emission of a fast neutron or gamma ray. Accessibility to the direct 
cycle machinery space must be restricted during plant operations to limit 
exposure to these distributed sources of radioactivity. 

In addition to the requirement that side shielding be provided, shielding 
must also be provided to limit the exposure to which all personnel aboard the 
ship would be subjected . This would at first imply that shie ldi ng must be 
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provided all around the machinery space. For an indirect cycle plant, the 
length on the ship's hull would be smaller since only the compartment housing 
the reactor, main coolant pumps or blowers, the heat exchanger through which 
power is transferred, etc., would have to be shielded. Ihe spatial distribu- 
tion of the reactor coolant in the direct cycle plant not only includes those 
components noted above, but also all txirbomachinery in the machinery space 
through which the coolant flows. 

The remainder of this chapter will be devoted to the estimation of secon- 
dary shield weights required and comments on containment provisions. The 
fact that the weights calculated are only estimates must be stressed. A de- 
tailed determination of the shield configuration, containment techniques, and 
coolision protection system would require a comprehensive analysis that is 
beyond the scope of this study. The res\ilts obtained here do, however, lead 
to some general conclusions of significance. 

5.2 Distributed Radioactivity 

Pure water becomes radioactive when subjected to neutron irradiation, as 
previously mentioned. This activation pidmarily results from the activation 
of the different oxygen isotopes present. A small additional source of activi- 
ty is produced by neutron capt\ire of hydrogen, but this is so small that it can 
be neglected in comparison with that from oxygen activation. Oxygen activa- 
tion results in a 1 Mev neutron and two gamma rays at 1.1 Mev and 5*3 Mev, In 
a watei>cooled direct cycle plant, this source of activity is distributed 
through the machinery space. 

If a cladding failure occurs within the core, the coolant acts as the 
vehicle for transporting fission fragments outside the reactor shield. I^ie 
fission fragments that would escape from the reactor would be in the form of 
soluble or Insoluble gasses or solid particles. The attendant pjroblem they 
would cause would be due to the increased isotopic radioactive half-lives 
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present in the machinery space after plant shutdown. Operational experience 

vith a direct cycle boiling water reactor indicated that a serious problem 

did not result when the fuel cladding failed. The increase in radiation 

level at the turbine which resulted from deposition of fission fragments on 

2 

the blading was comparable to that from a radium dial watch. 

The phase segregation taking place in the upper mixing plenm of the CFR 
as the first pass coolant leaves the core in the saturated state is identical 
with that in 'the boiling water reactor. The liquid vapor interface has been 
demonstrated to be extremely effective in preventing the further transfer of 
non-volatile fission fragments. FVagments introduced through a cladding rup- 
ture on the first pass coolant side of the fuel tube will be largely confined 
to the small flow loop defined by the reactor and recirculation line. On the 
second pass side (inside the annular fuel tube of the CFR), the all vapor 
mixture can be expected to carry solid particles introduced into this stream 
outside the reactor. These will be deposited at various positions along the 
flow loop. The maintenance of cladding integrity on the second pass side of 
the fuel tube thus imposes more stringent design criteria than that for the 
first pass side. 

5.3 Estimation of Secondary Shield Weight 

An accurate evaluation of the radioactivity level caused by coolant decay 
within the machinery space but outside the reactor requires specific knowledge 
of the machinery and piping arrangements and the cycle conditions. VBLthout 
this knowledge, it is possible only to make an order-of-magnitude estimate 
of the required secondary shield weight. 

The first step in determining this estimate is to calculate the number 
of coolant atoms which are decaying outside the reactor, A simplified model 
has been postulated (Appendix F) to determine this rate. The basic assump- 
tions of the model are that the flux throughout the reactor is flat and that 



89 



the time a coolant atom spends v/ithin any given section of the flow loop 
is proportional to the mass of coolant within that section of the flow loop. 
Ihe' results of applying this model to a 50/^ enriched UO 2 CFH core, modera- 
ted with either water or BeO, are shown in Table 5*1 1 the volume ratio of 
moderator- to-fuel for the water moderated core taken as 2.0 and for the BeO 
moderated core as 10.0. 

To apply the results of Table 5*1 in estimating the required secondary 
plant shield weight, assumptions roust be made regarding the size and arrange- 
ment of the machinery space and the dose rate allowable outside the machinery 
* 

space. 

First, it will be assumed that the machinery space is 75* in length, 

30* in heigh th and 35* in breadth. VELthin this rectangular solid, all compo- 
nents throxigh which- radioactive coolant flows are located. Surrounding this 
space on all sides, except the bottom, a uniform layer of secondary shielding 
material will be placed. The incident flux of radiation, either gamma rays 
or neutrons, is assumed to be normally and uniformly incident over the 

Table 5.1 

ESTIMATED ISOTOPIC RADIOACTIVITY DECAY RATES 
Number of Fissions/MW^ = 3*0 x 10^^ Reactor Power = 60,0 MW-t 



Moderator 





HpO 


BeO 


Coolant Cycle Time/Reactor Transit Time 


200 


200 


Reactor Coolant Mass/Fiiel Mass 


0.213 


0.1847 


Reactor Transit Time, Seconds 


3M 


3.82 


1.1 Mev Gammas/Second from 0^® 


5.80 X 10^0 


4,11 X 10II 


5.3 Hav Gammas/Seoond from 0^® 


1.239 X 10^2 


8.92 X 10^2 


1.0 Mev Neutrons/Seoond from 0^^ 


1.129 X 10® 


7.92 X 10® 
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different sides of the machinery space. 

These assvmptions then preclude the presence of local "hot" spots within 
the space. In the case of fast neutrons, it will be relatively correct. Where 
large volumes of feedwater or condensate occur, the very fact that they do ex- 
ist means that self- shielding takes place. In the case of water at standard 
conditions, the mean free path for removal of fast neutrons is approximately 
two inches. As a first approximation, it can be said that all neutrons born 
within two mean free paths of the botuidary of the volume escape but all those 
originating within this circumferential thickness are trapped within the vol- 
ume and do not escape, 

"Hot" spots will occur due to gamma radiation. Whereas fast neutron 
energy is reduced to thermal values pidmarily by elastic collisions with the 
nuclei of the material they are transiting, gamma rays are attenuated by inter- 
action with the orbital electrons of the material. Fast neutrons originate 
in a medium which exerts a strong influence on their subsequent behavior. 

Gamma rays are born in an environment which exerts relatively little influence 
on their physical behavior within this medium. Thus, where large volumes of 
feedwater or condensate occur, these volumes produce "gamma hot spots". The 
structural metal of the different components, although possessing a high elec- 
tron density for gamma interaction, will not generally be thick enough to 
appreciably affect the local gamma fluxes which originate within their bound- 
aries, Thus, a discrete pattern of areas on the secondary shield bulkheads 
will be present, caused by gamma rays. The assumption of a uniform incident 
gamma ray flux on the shield bulkheads allows only a rough estimate of the 
total shield weight. 

The biological limit of exposure to a flux of 1 Mev neutrons is fixed at 
60 neutrons/cm^/seo based on a 40-hour week. For a ship at sea, the movement 
of personnel onboard is limited. The allowable flux level at the outside of 
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the secondary shield has been set a one-third the value fecund by converting 

3 

from a 40-hour week to a l68-hour week, i.e,, 4,76 neutrons/om^/sec. 

In calculating the requisite shield thickness for ganana radiation, it 
has been assumed that the allowable dose rate at the outer shield boundary 
will be 100 mrad/week. Again, this level is predicated on a man being contin- 
uously present at the shield boundary. Since this assumption is highly re- 
mote, it tends to make the shielding thickness conservative. It is anticipa- 
ted that the total shield weight found by these assumptions will be greater 
than that which would result from a detailed analysis which considers both 
gamma "hot" spots ai>d a more realistic appraisal of the exposure time outside 
the shielded space. 

Taking the gamma decay rates resulting from the transmutation of 0^^ 
and 0^®, Table 5»1 shows that the rate from 0^® is approximately two orders 
of magnitude greater than that from 0^®. Also, the harder 5*3 Mev gamma from 
0^® is more difficult to shield against than the 1,1 Mev gamma from 0^®. 
Therefore, the contribution of gammas from 0^® to the gamma shield weight 
has been neglected with small resultant inaccuracy in the estimated shield 
weight. 

Ihe results of applying the data generated in Table 5*1 the assump- 
tions delineated above regarding distiribution on the shield and allowable 

4 

exposure rates are shown in Table 5«2, Compairlson of the estimated weight 
shown for secondary shielding against neutrons and .5«3 Mev gammas shows that 
the major input to the required shield weight arises as a result of the 
5«3 Mev gamma rays, 

Ihe gamma shield weight estimates point up the fact that the utilization 
of a separate and distinct gamma shield is not practical. This severely 
limits the possible ship types which could incorporate a direct cycle water- 
cooled nuclear plant. Because of the volume and weight required for a water 
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Table 5»2 

ESTIMATED SECONDARY SHIELD PARAMETERS 



Compartment Length 75' 


VQ.dth 35' 


Height 30' 


Moderator 




H?0 




BeO 


Shield Material 


Water 


Lead 


Water 


Lead 


1.0 Mev Neutrons from 0^^ * 










Thickness (inches) 


1.5 




5.6 




Volume (ft^) 


1153 




4305 




Weight (long tons) 


32.7 




122.2 




5,3 Mev Gammas from 0^^ 










Thickness (inches) 


100 


5.13 


138 


7.09 


Volume (ft^) 


76900 


3940 


106100 


5440 


Weight (long tons) 


2180 


1264 


3010 


1748 



blanket or the weight for a lead blanket, the utilization of a non-revenue 
producing material as the secondary shielding agent appears impractical. 

5.4 Cargo Shielding 

One solution to the problem of how to provide a direct cycle nuclear 
plant with the requisite gamma shield is to consider the use of the cargo 
itself as the shielding agent. This method has been described previously, 

5 

particularly in the .study of direct cycle plants using boiling water reactors. 
The requirement that the shield must provide a continuous belt around 
the machinery space limits the type of ship in which a direct cycle plant 
can be fitted to tankers. The amount of shielding protection that any material 
provides is roughly proportional to the weight of the material per unit sur- 
face area between the radioactive source and the point being shielded, A 
tanker appears to be satisfactory since, if it is empty and must proceed to a 
different port to load cargo, the empty tanks can be filled with ballast sea 
Water for the trip ai>d the required shielding achieved to permit operation 
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Table 5.3 

COMPARISON OF DIRECT AND INDIRECT CICLE SHIP WEIGHTS 



I 



Power Plant 


■ Conven- 


PWR 


BWR 


BWR 


BWR 




tional 


SAVANNAH 


Natural 


Natural 


Forced 




Steam 


Type 


Circ, 


Circ, 


Circ, 


Cycle 


Direct 


Indirect 


Direct 


Direct • 


Direct 


Containment 




ftimary 


Primary 


Mach’y 

Space 


Primar; 


light Ship Wti 


Steel 


6430 


6555 


6620 


6650 


6620 


Outfit 


1360 


1320 


1290 


1290 


1290 


Machinery 


970 


955 


720 


720 


720 


Reactor Plant 




480 


170 


170 


170 


Containment 




200 


170 


(a) 


170 


Shielding: Primary 




110 


850 


850 


850 


Secondary 


8760 


1830 


(b) 


(b) 


(b) 


Total 


11400 


9820 


9680 


9820 


Deadweight: 


Cargo 


19580 


1908O 


20660 


20800 


20660 


Fuel Oil 


2460 


320 


320 


320 


320 


Stores, Effects, 


600 


600 


600 


600 


600 


Crew, 1 -Iisc, 


Total 


22640 


20000 


21580 


21720 


21580 


^ Gain Cargo 


Base 


- 2,5 


5.5 


6,2 


5.5 



(a) Included with structural steel, (b) Included in deadweight. 



of the machinery plant. 

When considering the different ramifications of cargo shielding, the 
possible activation of the cargo must be brought up, Ihe weights estimated 
for the required fast neutron shield are not too large to bo prohibitive, in- 
deed with the conservative assumptions made for their determination it is 
expected that they would bo high. They indicate that it is possible to pro- 
vide a fast neutron shield which can protect the cargo against activlatlon. 

Table 5*3 is taken from a study that considered the use of boiling water 
reactors as the power sovirce for a marine plant, Ihe deadweights of the 
direct cycle plant compare favorably with both the conventional oil-fired ship 
and the SAVANNAH type nuclear ship, Uio shield arrangement used did not pro- 
vide for overhead shielding of the machinery space. Consequently, the deck 
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area over the machinery space also has limited accessibility. If the same 
philosophy is applied to the weights estimated in Table 5,2, their values can 
be reduced by approximately 30 ^. 

A sectional view through the machinery space showing the arrangement 
of the shielding tanks is illustrated in Figure 5,1. This arrangement re- 
flects the philosophy xised to generate the data given in Table 5.3 for the 
direct cycle boiling water plants and shows that only wing tanks are present 
to provide shielding abeam of the space with no protection provided above 
the space. 

Ihe question of the possible collision at sea in which the cargo shield 
tanks might be holed is valid. Tb avoid the immobilization of the ship at 
sea after such an occurrence, the plant must be pz*ovided with an auxiliary 
non-nuclear power source. The inclusion of a diesel engine to act as an 
emergency power source is not unrealistic. Normal design philosophy for any 
marine plant is to provide some alternate means of take-home power in the 
event of an equipment failure precluding operation of the normal propulsion 
plant. For the nuclear plant, the loss of secondary shielding can be con- 
sidered to be such a failure* From this standpoint, wing tanks to provide 
secondary shielding are feasible. If the reactor pressure vessel is not 
ruptured, the primary shield encompassing the reactor will furnish the neces- 
sary protection against core activity, 

5.5 Containment and Collision Protection 

To prevent the free egress of fission products from the nuclear fuel to 
the atmosphere, three barriers placed in series have to be overcome. The 
flow diagram indicating how these barriers would be penetrated is shown: 

Fission Cladding Piping or Containment Fission Products 

ft*oducts •■^Failure “^Equipment ~>Vessel ^in the 

in the Fuel Rupture Rupture Atmosphere 

Cladding has been provided around the fuel already. "Piping or Equipment 
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(Drawing not to scale) 




CROSS SECTION OF SHIP THROUGH THE MACHINERr SPACE 

Figure 5.1 



I 




Rupture" is meant to indicate either a rupture of reactor pressure vessel, a 
break in the piping system or a rupture of one of the turbomachinery equip- 
ment items through which the coolant flows. 

The requirement for restricting the dispersal of any fission products 
that have transited the first two barriers in the direct cycle application 
favors designing the whole periphery of the machinery space as the contain- 
ment vessel* In the first place* a breakdown of the first fission product 
barrier, the fuelT. cladding, results in a possible circulation of the products 
through the space along the coolant flow path. Secondly, if this condition 
occurs, there will be some escape of the volatile products into the open 
environment of the space through gland seal leakage and as non-condensable 
gases from the air ejector* Ihus, total containment appears more realistic 
than reactor containment only* Even without cladding rupture, a break in 
flow loop results in the release of radioactive coolant into the spaces* 

A method for accomplishing this containment protection is to incorporate 
this requirement into the structural design of the ship in way of the machin- 
ery space* Ihe pressure to which the containment vessel would be subjected 
can be estimated by assuming that it is proportional to the available thermo- 
dynamic energy of the coolant within the reactor pressure vessel and inversely 
proportional to the volume enclosed by the containment vessel. VQ.th these 
assumptions t 



_ . ^ ^ Coolant Thermodynamic Energy 

Explosion Pressure Containment Vessel Volume 

The separate containment vessel for the NS SAVANNAH plant has a calcu- 
lated internal volume of 3*8 x 10^ ft^ (length = 51*. diameter = 35')» At 
» mean temperature of 508 ®F within the pressure vessel, ^the estimated coolant 
weight is 8030 lbs at an average energy of 505*3 Btu/lb* 

For the CFR system, under the concept of total containment for a com- 
partment of dimensions 75' x 35' x 30« (= 7.9 x 10^ ft3), the weight of 
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coolant and averag* specific energy for the H2O moderated and BeO moderated 
cores are (1662 lbs, 522.3 Btu/lb) and (1551 lbs, 537.8 Btu/lb), respec- 
tively. 

Scaling against the SAVANNA.H's containment vessel design pressure of 
185 psig, the estimated pressures to which the containment vessel of the 
direct cycle CER system might be subjected are 6,2 psig and 5.7 psig for the 
K2O and BeO moderated cores, respeotively, assuming that the final expansion 
results in saturated liquid at atmospheric pressure (180.02 Btu/lb). Ihe 
estimated pressure should be considered low, since an explosion does not 
occur in the Idealized manner assumed. The effect of the larger expansion 
volume and the smaller mass of coolant, which result from the direct cycle 
CFR application with total containment, are illustrated by the pressure 
estimates. 

VIhen faced with pressures of this order-of-magnltude, a feasible ap- 
proach is to consider Integrating this requirement into the structural de- 
sign of the hull. A cofferdam (void space) will separate the machlneiry 
spaces from the cargo tanks. Stiffening the inboard bulkheads of the coffer- 
dam to withstand explosion pressures of the magnitude estimated above presents 
no great problem and will not materially contribute to the overall structural 
weight of the ship. 

The longer length of the radioactive machinery space in the direct cycle 
concept requires collision protection over a greater percentage of the ship's 
length than is necessary for a or other indirect cycle nuclear plant. 

If additional steel had to be utilized specifically for collision protection 
at tl)e same rate of tons/foot, this item would drive up the operating expense 
for the direct cycle because of revenue loss, ^e requirement that cargo 
shielding is necessary to make this' concept at all feasible plays a favorable 
role for collision protection. The fact that there necessarily is a large 
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separation between the hull plating and longitudinal bulkheads defining the 
machinery space reduces the amount of steel that must charged to collision 
protection; part of the weight involved can be charged to the tank structure 
itself. 

Ihe data presented in Table 5*3 points up what would appear to be an 
advantage in designing for total containment of a direct cycle plant and 
incorporating this feature plus collision protection into the overall struc- 
tural requirements of the ship. In the case of the SAVANNAH type plant the 
light ship weight for steel and containment totals 6755 tons whereas for the 
direct cycle natural circulation BWR plant these light ship weights are 665 O 
tons; for the case of the direct cycle BWR plant with primary containment 
and natural or forced circulation the light ship weights are 6790 tons. 

5.6 Concluding Remarks 

These preceding sections have been written to indicate some of the prob- 
lem areas associated with the design of a direct cycle, steam driven nuclear 
marine power plant. In this respect, the most difficxtLt design problem that 
has to be solved is "that concerning secondary shielding, Vfi.th the application 
of the direct cycle plant to tankers, the .only feasible way to achieve an 
economical ship is by moans of burying the plant among the cargo tanks. Ibis 
does not solve the problem since the large thickness or weight of secondary 
shielding material over the radioactive machinery space appears to be prohib- 
itive, hence deletion of the overhead shield seems necessary and a new set of 
problems concerning access to a radioactive main deck area is Introduced. 
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Chapter 6 

CONCLUSIONS AND RECOMMENDATIONS 

6.1 Signmary 

The CPB reactor appears to be an entirely feasible concept. Results 
shown In Chapter 4 Indicate that It can produce superheated steam within 
the constraints of metallurgical temperatures. 

The H2O moderated core leads to a smaller reactor than does the BeO 
moderated core. In the two configurations chosen for discussion, the H2O 
moderated core, though smaller, has a lower modal neutron temperature than 
the BeO moderated core. For both configurations, an enrichment of 50^ 
was used. The results of evaluation Indicate that a lower enrichment In 
the neighborhood of 30^ will cause more than half of the power produced to 
arise from fissions Induced by neutrons with an energy of less than 1 .85 ev, 
the boundary energy used In the two-group model used, for the same geometri- 
cal size of the H2O moderated core described In Table 4,4, Reduction of 
the power split between the two groups for the BeO moderated core to this 
level cannot be achieved without Increasing the core size. 

The power density achieved with the H2O and BeO moderated core are 
45.3 kw/liter and 6,01 kw/liter, respectively. For the two configurations 
studied, the second pass exit velocities were of the order of 100 ft/sec and 
300 ft/sec. The slower exit velocity yields a core of smaller length. On 
the other hand, the dimensions of the corresponding flow paths are reduced 
and the manber of flow paths (l.e., number of annular fuel elements) must be 
increased. Consequently, the ratio of cladding/ fuel volume within the core 
increases and more neutrons are parasitically absorbed. The choice of the 
configuration was based on minimum core volume, which turned out to be 11ml - 
^d by the second pass cladding temperature. Because of the increase in para- 
sitic absorption, only an economic analysis of fuel cycle costs can determine 
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whether the oinimura volume core will in fact be the optimum core. 

It has been stated that as the second pass steam exit velocity decreased, 
the required fuel rod length for a given maximum cladding temperature de- 
creased. This statement was based upon holding the second pass channel ra- 
dius ri fixed. If the number of fuel elements is held fixed (the product of 
V£ ri^)t inspection of the results quoted in Table 2.2 will show that for 
a given maximum cladding temperature, the required fuel rod length will in- 
crease as the steam exit velocity, ratio of fuel tube radii (r^/r2) and 
second pass channel radius decrease. In this compaiison, the percentage of 
fuel volume within the core decreases as the steam exit velocity decreases. 
Thus, the H2O moderated core appears more feasible at low steam exit velo- 
cities than the BeO moderated core, since H2O is a more efficient moderator 
than BeO, 

In comparison with the typical pressurized water and boiling water 
reactors in use today, the H2O moderated CFR appears favorably. The pres- 
surized water plant in the NS SAVANNAH, the only non-military marine plant 
in existence today, has a calculated power density of 21,1 kw/liter. Addi- 
tionally, the fact that the steam exit conditions are superheated produces 

a cycle efficiency which is approximately 1 ,4 times the efficiency of the 
1 

SAVANNAH C3rcle, 

An off-shoot of the Aircraft Nuclear Propelled ft*ogram has been the 
study of the "63OA Steam Generator", This study deals with the application 
of an indirect cycle, air cooled, water moderated fully enriched reactor 
to produce superheated steam at the same design conditions as the CFR, The 
active core dimensions are 47.8" diameter and 27.4" height, producing 67,4 

for 30,000 SHP, The power density for this core is calculated to be 
83,4 kw/liter, or about 1,8 times that of the H2O moderated core of this 
study. Overall cycle efficiency for this plant is approximately equal to 
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that of the CFR plant. Some economic studies indicate that this type 

installation will be competitive with conventionally fired maidne plants. 

A review of the core configuration indicates that the reactor would bo 

2 

classified as fast. 

The figures of Chapter 4 show the power and temperatxire distributions 
for a typical CFR core. Near second pass exit at the bottom of the core, 
power peaking is evident. This tends to limit the advantage of the coxmter 
flow arrangement since the heat flux fl*om the second pass coolant to the 
first pass coolant becomes relatively less. Increasing the moderator/fuel 
atom ratio will decrease the amount of power peaking, making the axial dis- 
tribution more uniform and permitting a shorter active length to achieve 
the design exit conditions. 

Control of the direct cycle CFR plant must be accomplished automatically 
or by remote features. An economic analysis of a boiling water direct cycle 
reactor plant for a marine installation indicates that automatic control is 

3 

economically feasible. The power level in the CFR can be varied by changing 
the feedwater flow rate or the recirculation flow rate. Control rods must 
enter the core from the bottom, rather than the top, in order to reduce the 
effects of axial power peaking and permit the reactor to be operated at full 
power. 

Shielding of a direct cycle CFR plant presents many problems. The only 
practical installation indicates that tankers would be the sole ship type 
available. Even if the tanker type is chosen, the reactor and turbomachinery 
must be buried in the cargo tanks and limited access will result in areas 
above the machinery space. 

6,2 Recommendations 

Heat transfer can be said to play the controlling part in the engineer- 
ing evaluation of the counterflow reactor concept. Heat is removed from 
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the fuel element by two counterflowing coolants, which at' various positions 
during their transit of the core are in the pressurized water, two-phase 
steam-water and dry superheated steam conditions. It is particularly impor- 
tant that the heat transfer coefficient between cladding and coolant can be 
accurately predicted. Correlations for doing this for the two-phase steam- 
water mixture are limited; the majority of published technical literature 
deals with the burnout heat flux and not with the prediction of the actual 
heat transfer coefficient. The correlations that do exist generally show 
wide variations for the same conditions. It becomes almost mandatory that 
more work be done to develop a consistent and reliable means for predicting 
two-phase heat transfer over all qxiallty regions in order that the CFR con- 
cept can bo fvilly justified. 

Many variables were arbitrarily fixed during the study of the CFR. 

These included the nominal first pass inlet velocity, first pass steam exit 
quality, and socorvi pass exit velocity. An increase in the first pass inlet 
velocity will make the core smaller and increase the pressure drop from inlet 
to mixing plenum. The first pass steam exit quality determines the heat 
transfer coefficient, recirculation rate and second pass flow rate. The 
second pass steam exit velocity determines the heat transfer coefficient to 
the second pass coolant, the size of the channel and the power produced in 
the associated annular fuel element. Additional scoping studies are recom- 
mended which would include these terms as variables in the selection of an 
optimized core. 

The fuel used in this study was a ceramic. One area of further inves- 
tigation that needs to be fully explored is that of using dispersed fuel in 
a metallio lattice. Because of the groat variance in thermal conductivity 
between the two types, the curves of required core length shown in Chapter 2 
will bo entirely different. 
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The study of transient behavior of the reactor will determine whether 
the concept is sound. Preliminary investigation of this behavior in conjunc- 
tion with the remarks made on the start-up procedure indicate that this is 
the case* This investigation was made using a crude lumped parameter model. 

Ihe transient study of the CFH concept needs much more work to be able to de- 
fine with reasonable accuracy the transient peaks duidng power variation. 

A detailed investigation of the behavior using numerical analysis techniques 
appears to be not feasible because of the small time increments that are re- 
quired to insure stability of the solution. Refinement of the lumped param- 
eter model by describing smaller and smaller volumes within the core appears 
to offer the most promise in achieving a theoretical tool for predicting 
transient behavior. 

VJhether the concept will be adopted depends on its economic potential. 

The FORTRAN program listed in Appendix G can be modified to assist in this 
evaluation. It can be coupled to a fuel cycle or burn- up code. This coupling 
should be such as to allow the reactor to produce power for a specified time 
increment, calculate the change in composition of the constituents .and fis- 
sion products, homogenize the results so that the CFR program can again be 
entered to determine the fine details of the power distribution, and then 
repeat the cycles until criticality is lost. 

The steam cycle into which the CFR was installed is pertinent to a 
marine plant. The direct cycle plant is extremely limited for this type of 
application, primarily due to the shielding requirements. As such, investi- 
gation into the use of this concept for an indirect cycle plant may show 
additional advantages. Such an investigation will require the determination 
of a new set of cycle parameters for the primary loop, dependent on the tem- 
perature pinch points in the heat exchanger and relative flow rates in 
the two fluid loops. If the core configurations presented in Chapter 4 could 
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be directly applied to an indirect cycle plant, the overall cycle efficiency 
would fall because of the lowering of the maxirauin practical turbine inlet 
steam temperature and the machinery weight of the plant would increase due 
to the steam generators and primary coolant pumps required. 
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APPENDIX A 



NUCLEAR ANALYSIS 

A.1 Choice of Model 

The mathematical model describing the steady state neutronic 
behavior is that of two-group diffusion theory. Diffusion theory has 
been chosen because of the relative simplicity with which it can be 
applied and a solution obtained, in contrast to the greater complexity 
which results when a higher order transport theory approximation is 
used. The results obtained from this theory are not as precise as might 
be desired, particularly in the fuel regions. Ihis sacrifice is necessary 
to permit a digital computer program to be written (1) that is not of such 
length that it will exceed the machine storage capacity, taking into account 
the fact that the coupled nuclear, thermodynamic and hydrodynamic problem 
must be solved simultaneously, and (2) that the necessary computational 
tine per data set conforms to those restrictions imposed by the MIT 
Computation Center that a maximum number of parametric values can be studied. 
A. 2 Formulation of the Basic Equations 

The general multigroup steady state diffusion equation is written in 

terms of the physical processes which define the flux level 0 for neutrons 

in energy group j at some spatial point x. Energy group 1 denotes neutrons 

with the highest kinetic energy, whereas energy group N, N being the number 

of discrete groups into which the energy spectrum has been divided (two for 

this problem), refers to neutrons of thermal energy. A conservation equation 

is written for the neutron density, which defines these processes within an 

1 

infinitesimally^ small volume at x . 

Diffusion theory approximates the number of neutrons which are diffusing 
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away from the volume centered at x per unit time and per unit volume 
as 

Diffusion rate = V*[p'^(x) 

The rate at which neutrons are absorbed by constituent nuclei 
within the volume by fission or non-fission capture is 
Absorption rate = j^^(x) 

In addition, there is also a pseudo-absorption process in which the 
neutrons of group j are removed from this group to groups of lower 
energy (higher group number) through the mechanisms of elastic and 
inelastic scattering. The rate at which this removal process con- 
tributes to the conservation equation is 



Scattering absorption rate 




Just as the neutron density is lowered by downscattering to lower 
energy groups, the density in these lower groups is increased by this 
mechanism. The contribution to the density of group j by all higher 
groups is given by 



Scattering source rate 



k=1 L 









In addition to the downscattering source term, neutron pro- 
duction is also occurring due to fission, if the region under consider- 
ation at point X contains a fissionable material. Because of the 
statistical natm*e of the fission process, fissions induced by neutrons 
of group k produce neutrons in group j. Representing the probability 
that, of all the neutrons born by fission, over all possible energies, 
ihe fraction of fissions born directly into group j is given by X'^(x), 
the fission source is 



Fission source rate = X (x) 



X 






3'‘'(x> 2^(x) (j'‘(x)l 

•4 
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Combining these terms through a conservation equation based 



on the rate of ohange of density with time, 

0 = Production - Absorption - Leakage 
the general multigroup steady state diffusion equation can be formu- 
lated in continuous space as 

0 = '7.[d^(x> V(j’J(x)] - Thx) «l^(x) - 

* xl(x) stj‘(x) Sl^Cx) ^"(x3 + «l'<(x)) 

k=r ^ •' k=l‘^s J 

Certain boundary conditions have to be applied within the reactor 
to describe the behavior of the neutron density and flux for all energy 
groups at an interface between two different materials. Since an inter- 
face possesses no finite thickness, the density cannot change across it. 
Because the density does not change, the rate at which neutrons traverse 
the interface must be the same on both sides, i,e,, the current must be 
continuous. Ihese conditions then are expressed mathematically as 

dJ(x> V«I'><x) I = D^(x) 

The local power generation rate at any point, due to stopping of 
the fission products in the region of the fissioned nucleus, is defined 
from the condition that 




Equations (A-1 ) - (A-3) form the basis of the subsequent develop- 
fflent to define the flux and power distributions within the reactor . To 



(A-1) 



(A-2a) 

(A-2b) 

(A-3) 
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datenaina these distributions, the continuous equations must be 
refonnulated as finite difference equations. 

A. 3 Reactor Subdivision 

The reactor is in the form of a right circular cylinder. This 
configuration has been chosen to yield the maximum neutron economy 
and a minimum of heat removal problems. In this shape, the variation 
of parameters around the radial centerline is assumed to be rotationally 
synmetric, so that equation (A-1 ) can be viritten in two-dimensional 
cylindrical (r,z) coordinates. This assumption presupposes that the 
effect of a discrete number of control rods around the reactor center- 
line can be represented by considering them to be smeared out over an 
annular ring. As a result of the discrete character, the fission rate 
and burn-up in the neighborhood of a control rod shows an angular vari- 
ation, These two effects are neglected by this assumption. This 
neglect does not change the overall flux distribution within the reactor, 
but introduces an additional fine structure which alters the local power 
distribution rate. 

The reactor is divided into Mr radial regions and Mg axial regions 
as shown in Figure A.1. The properties of any region within the reactor 
can be specified by the double subscript (l,J)» The lower plenum is 
denoted by J = 1 , the upper by J * Mg. The radial reflector is denoted 
by I = Mr, The core regions are then specified by I = 1 to I = Mr - 1 
and J = 2 to J = Mg - 1 . The properties of all radial subdivisions per- 
tinent to the lower plenum have the same value. The same is true for the 
upper plenum regions or the radial reflector regions. 

Figure A, 2 shows a horizontal cross section of one of the cells with- 
in the reactor core. All regions across the cell can be described by a 
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set of concentric circles. To simplify the mathematical treatment, 
the moderator region is also assumed to be annular and the equivalent 
diameter of the square cross section is defined such that the area 
enclosed by the circumscribing circle is equal to the cell pitch 
squared. This permits describing the cell properties in terms of 
cylindrical coordinates in two dimensions by again assuming rotational 
symmetry. 

A. 4 Reduction to One-Dimension 

Within any given core subdivision volume, the nuclear properties 
of the constituent material are independent of position and equation 
(A-1) can be written in (r,z) coordinates within this volume as 



0 = + 7 ^) ikr.z) 



k=lL ® -* k=l L f 



where 



v! = ^ + -1-1- 

)lr r ir 



and 






(A-4) 



(A-5a) 



(A-5b) 



The two-dimensional nature of the flux variation is introduced by 

2 

the Laplacian operators . 

Physically, these operators account for the diffusion or leakage 
away from a given point. Because of their presence in (A-4^), the total 
number of space mesh points that must be considered, when fonnulating the 
equations in terras of finite differences, is equal to the product of the 
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number of mesh points in the radial direction and the number of mesh 
points in the axial direotion. To reduce the total number of space 
points, it is advantageous to define a macroscopic leakage cross 
section which will account for the two-dimensional effect and 
p ermit reducing equation (A-4) to a one-dimensional difference equation 
without an inordinate decrease in accuracy. 

To accomplish this reduction, the direction in which the flux 
mapping is to be performed is either descidbed in terms of plane (z) 
or polar (r) coordinates. Then, defining a Laplacian operator 
which is in this direction of calculation, the leakage cross section 
will account for neutron flow in a direction transverse to the calcula- 
tional directional, is defined by equation (A-5a) or (A-5b), depend- 
ing upon whether the geometry is polar (r) or plane (z). 

In terms of the leakage cross section, equation (A-4) is written 
as 

0 = dJ 72 - [ z .+ ^ 

^ k=j+1 ® ■* 

+ J «i>'(x)] , xJ 

which is one-dimensional with respect to the Laplacian operator, but 
two-dimensional with the inclusion of the leakage cross section. The 
method of defining the leakage cross section is deid.ved in Sections A, 12 
and A,13, 

A. 5 Formulation of the Difference Equations 

Using the method of finite central differences, the first difference 

3 

Tor some function f at some mesh point k is given by 
^k “ ^k + " ^k - i 



(A-6) 
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Ibe second central difference about point k is 

+ 1 “ 2 ^k ■*■ ^k - 1 

With these definitions ^ the Laplacian operators in plane or 
polar coordinates take the form 

'o2f| , ^k+1 * ^ ^k ^k-1 

|^=^k Az2 

and 



^2^1 = ^k+1 - 2 f k + fk,i i £k±Ljl-il£=i 

|r=rk Ar^ ik Ar 

Ihe half spacing in (A-8) is inconvenient, so it is replaced by 



fk-fi- “ fk.4 fk-fl - fk-1 

Ar 2 Ar 

giving for the polar Laplacian 



^f| 



r=rk 



(1+^) £h±i 

2rk''^^ 



2 ^k /, \ ^k-1 

Zr^ ~ 2rk' "At^ 



Ihe similarity between equations (A-7) and (A-9) is apparent. 

The geometrical correction factor (Ark/2rk), which ap^ars in (A-9), 
can also be written as 



'' 2rk' 2 rk' 



where G is defined to be \mity if the coordinate system is polar, 
Defining G to be zero for plane geometry, a general one-dimensional 
Laplacian operator can be written in terms of central differences as 



(A-7) 



(A-8) 



(A-9) 



(A-10) 
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where 

G = 0 plane geometry 

G = 1 polar geometry 



Using these definitions, the difference equation equivalent of 
(A-6) in terms of plane or polar geometry at some position x = xj^ 
becomes 



- * si * U 

j-1 r N 1 

+ z: + xJ g- z} 0^) 



A. 6 Induction Formula to Invert Flux Difference Equations 

Ihe basic mathematical technique to invert a one-dimensional set 

4 

of equations in the form of (A-12) has been previously developed. A 
brief outline of this method is given below. The difference in the 
method of solution, as required by the inclusion of the leakage cross 
section is noted. 

Within a region the cross sections and diffusion coefficients 
are constant. The variable parameter is the flux. 7 e last two terms 
in equations (A-12) represent the source terms for group j and position 
k. These two terms are denoted by S^; 

® Lm=T J 



(A-11b) 

(A-11c) 



(A-12) 



(A-O) 



Denoting the total removal cross section from group j, disregarding 
the influence of diffusion in the direction of calculation, and 
leakage perpendicular to this direction, hy the symbol the 
mathematical definition heccmes 




The leakage cross section in (A-12) introduces a variation 
in the treatment between this method and that previously referenced. 
If the leakage cross section is negative and there is a net flow of 
neutrons into the region \uider consideration, it is possible for a 
condition to arise where 




> + <21 ( ) 

® rasj+l s 



When this situation occia^s, the total cross section for absorption, 
downscattering 6nd leakage becomes negative and direct inversion by 
the methods of ( 4 ) leads to a mathematical instability in the difference 
equation representation. 

To preclude this occurrence, the following technique is employed. 

The value of the leakage cross section is tested to determine whether 
it is positive or negative. When is greater than zero, the source 
term and total removal cross section term are modified to 

4 = ( 2 :"’'^ ^ (»" 2 " 4 ) 

m=l s ^ ni:=i 

+ t] + i: (zf^“ ) 

“ ® maj+l ® 

On the other hand, if is negative, ^ ^ is included with the source 
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term so that 
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Using the appropriate set of either (A-15) or (A-16), equation 
(A-12) is rewritten as 



° v 4 -{i + 






OSx ) J 

2Xfc 






2D^ 



+ Zj ) 4 + 4 



Equation (A-1T) is solved for the flux at the point k + 1. 
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Defining the quantities h^ and cP hy analogy, (A=-i 8) is rewritten 



as 



4+1 = »i 4 - 4 4-1 - 4 



To invert the matrix defined by (A“19), an induction formula is 
assumed. 

- 4i0‘ J 



^ ” ^41 

^4-1 



Inserting this assiunption into (A=-19) and solving for gives 



(A-l6a) 

(A-l6b) 

(A-17) 

(A-i8) 

(A-19) 

(A-20) 
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(A-21) 



4 = + (4 + 4 

4 - 4 
H 



which establishes the relationship between the Aj^’s and Bjj's 




(A-22a) 





(A-22b) 



4 



A.7« Difference Equations at an Interface 

At an interface between two regions of different properties, 
the boimdary conditions of diffusion theory (A-2a,b) must be satisfied. 

In the subsequent development let primed quantities denote properties to 
the right of the interface and unprimed quantities denote properties to 
the left of the interface. 

To solve this problem, assume that the interface is centered at the 
point Xjj and write the diffusion equation for the left hand region using 
central differences and define a ficticious value of the flux at the point 
*k+l terms of the properties of the left hand region. Let superscript 

f additionally identify the point at x, ,, 



Following the same procedure for the region to the right of the 
interface and defining a fictional flxuc at the point yields 




(A-23) 




(A-24) 
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In difference fonuj, the boundary conditions at the interface 



are written as 




Using (A-21) and (A-22a,b), the bracketed term on the left hand side 
of (A-25b) can be rewritten as 
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R - (i-i-14) 
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and the bracketed term on the right hand side as 
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Reqviiring flux continuity at the interface, inserting (A-26a) and 
(A“26b) into (A-25b)p and solving for the fliJX at the interface gives 






i«; 
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where 
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The particularly advantageous feature of 



(A”2T) aod (A-28) is the 



(A-25aj 

(A-25b) 

(A-26a) 

(A-26b) 

(A-27) 

(A-28a) 

(A-28b) 
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preservation of the recursion formula defined in (A-20) and (A-22). 

A. 8. Derivation of the Difference Equations at the Origin 

Tvro "boundary conditions can he specified at the origin - either 
zero flux or zero current. The zero flux assumption neglects the effect 
of extrapolation distance hut introduces negligible error, particularly 
when considering the uncertainties later introduced through the heat 
transfer correlations. These two boundary conditions at x » o, 
denoted in the difference notation by K ® 1, are 



a 0 (zero flux) 

= 0 (zero current) 

Evaluating the condition of zero flux first, equation (A-20) 
used and K is set equal to 2. 

4 = 4 * 4 




Setting K = 2 in (A= 



and remembering that = 0 yields 



- a*^ 0 ^ 



which can be rewritten as 



= 0^ + c 



ai 



Thus, the recursion factors Ag and are defined. 



aJ 

*2 






B- 



is 



(A-29a) 

(A-29b) 



(A-30) 



(A-31) 



(A-32) 



(A-33a) 

(A-33B) 
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The condition of zero cxjrrent is not as direct. To determine 
the finite difference representation, a neutron balance equation has 
to be written. The cylindrical geometry introduces slightly more 
complexity than plane geometry, so the boundary formulation will be 
developed for this geometry, and then generalized to include both 
plane and cylindrical geometry through the use of the geometry function 
G. 



The net number of neutrons that result from production and removal 
per unit time over the circular area of radius x/2 and unit height is 

r4x/2 

Production •= Removal s 2 Tj | 



The net number of neutrons diffusing out of this volume is determined 
by the current at dx/2 multiplied by the cylindrical area. This, then, 
yields 

Leakage = - 2 TT (^x/2) T)^ ^ 

The conservation equation is, in steady state. 



0 s Production ■= Removal = Leakage 



or, in mathematical terms, 

f£x/2 p 






[si 



C T 






dr 
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3/2 



In the integrations of equations (A»3^) ov (A-3^)# "tbe source 
and flux are assumed to be constant over the range from 0 to .ix/2. To 
calculate the flux gradient at.Zix/2, the flux is first expanded in a 
Taylor series about some point x^. 



(A-3J^) 



(A-35) 



(A-36) 
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^^(x) ^ jZl'^Cxo) + (x - Xq) + 1/2 (x-x )2 + (A-37) 



wher®. primes denote differentiation with respect to k. Setting x^ = 
lix/2 corresponding to index 3/2 and evaluating the flux at x = 4x 
(Ks2) and X = 0 (Ksl)p the gradient at the half space can he evaluated. 



^5; 
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(A- 38a) 
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= ix 
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^3/2 


+ 4 x^ 
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<z>3/2+ ••• 


(A- 38 b) 



Subtracting (A- 38 ^) from (A“38a) gives 



w 



' 3/2 






(A- 39 ) 



6x 



which is valid through second order terras. Equation (A-39) could 

have been derived directly by taking central differences about the point 

X = 4'x/ 2, but this would not have demonstrated the second order validity. 



Integrating (A=36) and using (A- 39 ) gives 

0= 4|! Q 









.0 

which can be solved for 

— r” 



4 



1 + 



i ^ 2 
■klT 

4 



(A-40) 



(A-4i) 



Equatiop (A=4l) is valid for cylindrical geometry only, but can be 
generalized to both plane or cylindrical geometry by incorporating the 
definition of G 
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(a-42) 



1 4* 



6X2 gO 

FTT+g) 

T 

2(1 + G)D^ 



Again, the identity with (A-20) appears and the appropriate recursion 
coefficients can be defined. 



An 



b; 



sj 

2 (14G) 



1 + 



2 (l-KJ) D’^ 



(A-439) 

(A-U3b) 



The use of equations (A=33a,b) and (A-U3a,b) permits definition of 
all recirrsion coefficients of higher index. 

A«9« Derivation of the Difference Equations at the Periphery 

Again, as with the conditions at the origin, two options are 
available - zero flxnc and zero current. Let ra denote the index correspond- 
ing to the edge of system under consideration. 

The trivial solution for the case of zero flux is simply 



m 



(A-UU) 



For the condition of zero current at the edge, a Taylor series 
expansion is made for the flux in terms of the flvix at the edge of 



ji^(x) = (xj (x^xj + 1/2 (x^) (x-x^)2+.... (A- 45 ) 



Evaluating this expression in difference symbolism for the point at 
x S5 Xju- X (index m-l) and remembering that 0^ = ^ gives 

^^.1 ' 4''+ 

2 



(A-46) 
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through second order terms. 



Solving for 





2 

^x2 





The flux at m-l can be eliminated from (A-U?) using (a-20) 






m 







(A-h?) 



(A-h8) 



Writing the diffusion equation for the point at x = x 



0 = 0" 
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(A-49) 



and substitutirig from (A°48) yields 



0 = 20"^ 
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l«m + SJ (A-50) 



Equation (A-50) can be solved for 0^ 

+_igi. 

6x2 



m 






2 p-3 r 1 “ 3,^ 












(A-51) 



A. 10. Method of Defining the Two°Dimensional Flux and Power Distribution 
Figure A,1^ Reactor Subdivision^ has given an indication of the 
method of attack that will be used to define the flux distribution. It 
involves homogenizing the constituents in each of the core subdivisions. 
By describing the flux distribution through the use of a one-dimensional 
formulation^ corrected for the two=dimensional character by the yet to be 
defined leakage cross section 7j ) Q marching type approach can be used. 
The solution proceeds as follows. For the first time through the 
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nuclear calculations, the power distribution both within the core 
and across the fuel tubes is assumed to be constant. With this 
assumption the average coolant density in each of the different core 
subdivisions and the upper plenum is determined. This information 
then permits defining the macroscopic nuclear properties for cell 
regions 1 and 5 (Figure 4"^ for all subdivisions. On subsequent 
iterations, the density variation is determined from an extrapolation 
of the previous calculated power distribution. 

To proceed with the method, the radial region denoted by index 1 
is considered. The calculation starts with axial region 2 and homogenizes 
the properties in this subdivision as defined by the cell properties 
determined by a cell producing power at a rate characteristic of the 
average rate for all cells in radial region 1, subject to the condition 
that the total power produced in the length defined by axial region 2 
was determined by the previous power distribution calculation along this 
length. The cell region defined by this length is considered to be 
infinite and the homogenization is performed by calculating an equivalent 
diameter for the square cell, based on cross sectional area, and doing a 
radial flux calculation across the cell, subject to the conditions of 
zero current at the origin and edge of the cell. As a result of this flux 
calculation, the homogenized constituents of this region define the 
macroscopic properties for this larger reactor region. 

After this homogenization is performed, the calculation steps to 
axial region 3 a^d the process is repeated until all the core subdivisions 
in radial region 1 have been hcmiogenized. Then, an axial flux calculation 
in the z direction of Figure 41/geometry in which the presence of the lower 
and upper plenums are included and the flux is set equal to zero at the 
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bottom and top of the reactor. As a result of this flux calculation, 
the fraction of the total power generated in each axial subdivision 
is determined by integrating eqxiation (A-3). Letting (l,J) be the 
integrated value of (A»3) over axial length J in radial region 1 , the 
fraction of power generated in axial zone J is 






M ol 

paCi^-^ ) 

J=2 



(A-52) 



When the Fa(I.,J) is defined for all (l=l, J=2*’> M, - l) subdivisions, 
the calculation steps to and the subdivision homogenization and 

power fraction determination is repeated. Thus, the fractional power 
distribution is determined for all core subdivisions based upon the axial 
flux traverses. 

After the distribution has been obtained for the outermost core radial 
region, the homogenized properties at the core midplane for each of the 
radial regions plus the properties of the radial reflector are used to 
determine the radial flux and power distribution across the reactor. For 
this case, the boundary conditions are zero current at the origin and zero 
flux at the edge. When the flux distribution has been determined across 
the core, the power distribution is again obtainable from (A-3). 

Denote the fraction of the total power that is contributed by each 
of radial core zones as F|^(l), where 



Pr(i) ^ Fr( i) 

Mr=1 

1=1 



(A-53) 



Using this definition, a two<=dimensional histogram can be obtained by 
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multiplying (A=>52) and (A‘-53) to obtain the fraction of reactor 
power that is produced in each core subdivision. 

Each cell vithin a given radial zone is assumed to be producing 
power at a constant rate. Let A^, be the cross sectional area of a 
cell and A(i) be area of radial zone I, Then the power produced in 
an axial lengthy denoted by by an "average" cell in radial zone 
I is 



Q (I.J) 



S 



A^ Fpd) Fa(I,J) 

KTj 



pR 






where the non=indexed symbol Pp is the reactor power generation 
rate. 

A, 11. Homogenization of Cell Properties 

The square section of a typical cell is replaced by an equivalent 
diameter as noted in Figure This permits formulating the necessary 

difference equations in terms of a one-dimensional model. 

To obtain a representative set of nuclear cross-section values which 
will characterize the processes occurring within a cell, the cross sections 
for the different regions are averaged with the integrated flux and volime. 
Thus, the homogenized cross sections are determined by the reaction rates 
which are taking place in each of the cell regions 



Z 



y ^0^dv 



(A-55) 



Equation (A-55) is valid for fission, absorption and scattering cross 
sections. 

The determination of a hanogenized diffusion coefficient for the cell 
is more uncertain. If one starts with a hcmiogeneous mixture of material. 
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the energy dependent but spatially independent diffusion coefficient 
for the mixture be defined by mathematical models^ which are generally 
accepted. However^, starting with a heterogeneous mixture^ the method of 
determining a diffusion coefficient is not so well understood and at 

5 

the present time is under experimental and analytical investigation. 

In the context of diffusion theory as used in this analysis, a 
relative simple approach can be taken. The eri'ors generated in this 
approach are caused by the shortcomings of diffusion theory, particularly 
in the case of heavily loaded cells. Diffusion theory relates the 
diffusion coefficient of a homogeneous assemblage of isotopes to their 

D 

transport cross section by 
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where i denotes the ith isotope in the mixture. The isotopic transport 
cross section is given by 
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where Hi- is average cosine of the scattering angle in the laboratory 
system of coordinates and the scattering cross section. 

The isotopic microscopic transport cross section of each constituent 
is determined by defining the density of that constituent based upon the 
total cell volume. Using this density, the energy dependent absorption 
cross section is defined frcmi an appropriate set of spatially independent 



flux equations. The constituent density is determined hy not 
only weighting with the ratio of regional volume to total cell 
volume., hut also hy a flux utilization factor. In other words, 
the density is flux and volume weighted, hut the flux is not known 
so a guess must he made regarding its level in each of the ceil 
regions for the two energy groups. 

Knowing the values of the constituent density and the scatter- 
ing and absorption cross sections, the flux-volume weighted isotopic 
transpcart cross section can he determined from (A-57). The volume 
representative diffusion coefficient of the cell can he obtained from 
(A- 56 ) by summing over all the constituents of the cell. 

Using (A- 56 ), the diffusion coefficient for each region in the 
cell can also he obtained. If the other cross sections for each region 
are known, equation (A-12) can he solved for the flux distribution, 
subject to zero current at the origin and periphery of the cell, to 
yield a new set of flux levels for each of the regions. Based upon 
the new flux levels, a new set of constituent densities is obtained for 
the isotopic and the spectral dependent cross sections can again he 
calculated, including the transport cross section and the diffusion 
coefficient for the total cell assembly. This is a reiteration process. 

To simplify the determination of the diffusion coefficient for the 
cell, the iterations have been stopped after the second trial. Thus, 
the representative densities are calculated across the cell, and the 
energy dependent cross sections are calculated. The macroscopic cross 
sections and diffusion coefficients for each region are determined, and 
(A°12) is solved. To determine the spatially representative cell 
diffusion coefficient, the microscopic transport cross section of each 
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isotopic constituent is assumed to remain constant Taut the flux- 
volume weighted density changes due to any change in the regional 
flVK level. Under these conditions^, a new average transport cross 
section is obtained for the cell by weighting in (A- 55 ). 




d¥ 



(A-58) 



In terms of the average and regional diffusion coefficients, equation 
(A- 58 ) can be written as 




(A-59) 



A. 12. Calculation of the Radial Leakage Cross Section 

Explicitly included in eqmtion (A-5^) is the assumption that 

the power distribution within each subdivision of the core is proportional 

to the product of the axial flvK distribution in a 'given radial region and 

the radial flux distribution across the core. Then, designating the axial 

flux level at seme point k in radial region I by the notation 0^ (l) and 

A^ 

the radial flux level at some point m by the notation , the two- 

R 

dimensional variation of the flux in radial region I is given by 

To preclude distortion between the different radial regions, the axial 
flux is integrated over the reactor height such that 

(I) dz = 1 (A- 61 ) 
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Thus 



in equation (A<= 60 )j, the term (l) is a shape factor for 

Ak 



the axial variation and the magnitude is determined by . The 
variation of for different energy groups j determines the coupling 



between the groups in « 

The determination of (l) in (A-12) involves a calculation over 
the height of the reactor which must simultaneously include the effect 
of the radial flow of neutron across the core at different heights and 
the influence this radial flow exerts on the shape of the axial flux 
distribution. For instance^ in radial region 1 = 3 axial region 
J S5 3? there can be a net gain or loss of neutrons in the radial 
direction to region (l = 2, J = 3) or to region (1 = 4, J = 3). The 
problem is to formulate a cross section for region (l = 3# J®3) which 
will account for this radial flow and by which the flow can be represented 
by the product of this cross section with the flvix level in region (3^3)- 
This is the previously denoted leakage cross section 2^. 

To make the analysis easier to follow and to simplify the notation, 
attention is first focussed on a particular subdivision of the core. 
Arbitrarily, radial region 1 = 3 and axial region J = 3 is chosen. It 
is assumed that radial region I = 4 is also in the core. Let primed 
quantities denote values to the right of an interface and unprimed 
quantities to the left of an interface. 

Since one of the boundary conditions on the solution of the 
diffusion equation is that the current is continuous at an interface, 
its value can be calculated on either the right or left side of that 
interface. Using diffusion theory and the definition of cxnrrent, the 
following expression is valid. 
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GEOMETRICAL DEFINITIONS FOR DETERMINING LEAKAGE CROSS SECTION AT (l=3,J=3) 

Figure A, 3 



Net niraber of neutrons diffusing 
from region (3>3) to (2;#S:) 
per unit time 



2TI^D^(2,3) 



Sj 13^2(2)1 

ZiUr fr-R^ 



(A- 62 ) 



where d 3(2,3) is the honogenized diffusion for radial region I a 2 and 
J o 3 and energy group j and ^^(z) is the continuous counterpart of 
discrete flux distribution defined in (A‘= 6 i)o Since the flux has been 
written as the product of two terras^ the integration in (A- 62 ) can be 
reduced to 




S3 




4<^>i ' ^ 

'raRg 



^^(z) dz 



(A- 63 ) 



In simplified notation and using the result of (A- 63 ), the follow- 
ing relationships can be written. 



Net number of neutrons diffusing . . j .Zg . 

from region ( 3 j« 3 ) to ^, 3 ) = 2f(RgD‘'(2,3) 

^ (A- 6 h) 



per vmit time 



2TRgD^(3j3) ^ 

(A-65) 
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Net nuicter of neutrons diffusing - . Z2 

from region ( 3 , 3 ) to i}-) 3 ) = “ 2^3D'^^(3, 3) f 0^ (z)dz 

per unit time ^r 'L ^3 - 

^ (a-66) 

7 _ 

= » 2ifR2D'5(l^,3) 0|^(z)dz 

(A-67) 

If the assumption of a product type representation of the flux vas 
exact within diffusion theory, the results of (k“ 6 k) and (A-65) vould 
he equal and the results of (A=66) vould equal those of (A-67). These 
conditions of equality are not obtained since the flxcc representation 
is only approximate. As an averaging correction to this discrepancy, 
the following assvimption is used. 



Net number of neutrons diffusing 
from region ( 3 , 3 ) to C 2 , 3 ) 
per unit time 





Net number of neutrons diffusing 
frcHn region (3,3) to (“f',3) 
per unit time 




Writing these expressions in mathematical terms and finding the total 
diffusion avay from region (3,3) in the radial direction gives 

Net number of neutrons diffusing f ^ \ d r ^2 j 

radially from (3,3) per ^ ^(R2®^(2,3) V0 r(R 2) ; 0 (z)<iz 

unit time \ ^ A2 

(a-68) 

z 
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Introducing the quantity (3^3); the number of neutrons 
which are lost from region ( 3 ? 3 ) to regions ( 2 , 3 ) or is defined 

hy 



Uumher of neutrons diffusing Z, R, • . -s 

radially from ( 3 , 3 ) per = C C 2 n 5 ^( 2 , 3 ) 0 '^(r) 04 -(z)rdrdz 
unit time "^2 ^ B. *^5 



i Zi • R 

es 211^(3, 3)^y ^ 0 ^^(z)dz ^ ^ (A-69) 



Equating (A-68) and (A- 69 ) and solving (3p3) gives 

£ a( 3>3) _ Right hand side of (A=68) 

as ' ' « p 

^ 0f-,(z) dz ^ ^ 0^(r)rdr 



A3 



(A- 70 ) 



The right hand side of equation (A- 68 ) can take several forms 
depending upon how many radial regions the core has "been divided into 
and at which radial position the calculation is being performed. To 
generalize (A- 68 ) replaces the radial index 2 hy I-l, radial index 3 hy 
I, radial index 4 hy I + 1 and axial index 3 hy J. If index I is greater 
than 1 and is hounded on the right hy another core region, equation (A- 68 ) 
is written, with only. the indices replaced^ 

Rj.l Dj(l-l,3*)^^(Rj^j^) 0^_^(z)dz 

2j»l 




- Ri ^ (Rj) 



0<5 







(z)dz 



} 



(A- 71 ) 
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If radial region I is greater than 1 but index I + 1 corresponds 
to the radial reflector, the form of equation (A-66) is used but there 
is no averaging vith (A-67) since no axial flux calculation is done in 
the radial reflector. The resulting formulation is 




When Isi and the region I = 2 is part of the core, the leakage 
cross section becomes 




If 1=1, and 1=2 corresponds to the radial reflector, the leakage cross 
section becomes independent of the axial flux distribution and is given by 



2^(1 



5 ^ . 



Rj D^(l,J) ^ (Rj_) 






R 



(r) r dr 



(A-7l^) 



This last equation provides the simplest and least satisfying result. It 
demonstrates the error involved by assuming a product type solution for the 
flux distribution. 
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■Ttie transverse lealtage perpendicular to a one<=dimensional flux 
calculation is frequently denoted by the term where ^*3 denotes 

the "buckling” of the system. Based on this definition^ it is possible 
to define a radial regional "buckling" within the core as 




(I,J) 



(l.j) 

(I,J) 



(A-75) 



For the condition that (l^ J) is negative^, based on the appropriate 
equation, the physical interpretation is that more neutrons are crossing 
into region (l,J) frcm regions (l°l,j) and (l 4- 1,»J} than are leaving. 

For this case, the leakage is negative and is treated as a source 

term and leads to the definitions of equation (A»i 6). On the other hand, 
when is positive, the leakage is truly acting as a neutron absorber 

and equations (A»15) are used. 

The integrations and differentiations designated in this section have 
been described in terms of continuous functions. The solution for the fl\nc 
has been defined in terms of discrete values, so these integrations and 
differentiations are numerical. Differentiations to the left of an inter- 
face is done by backward difference equations and to the right by forward 
differences. 

A. 13 . Calculation of the Axial Leakage Cross Sections 

For the condition of axial leakage when performing the radial flux 
calculation across the core and reflector mid-plane, the leakage cross 

p 

section has been defined in terms of the so-called system "buckling " 
and the diffusion coefficient of the mid-plane. 

The fast group axial buckling for all the radial regions has been 
defined in terms of the gecmetrical height of the reactor. Thus 
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(Reactor Height)* 



(A-?6) 



In terms of a leakage cross section^, 
£^(I) = B^(I) 3^^ (I) 



(A-77) 



This leakage cross section is always positive, so eqiiations (A-15) 
are used. Note that the only variation of J^(l) occurs through 
variation of the diffusion coefficient D (l) across the reactor. 

For neutrons in the thermal group, the axial huckling for the core 
regions is descrited in terms of the reactor height and the lower and 
upper plenum properties which define a "reflector savings". For the case 
of water in the upper and lower plenums, the thermal diffusion length is 
relatively small ccmpared to the plenum thicknesses so that from the 
nuclear viewpoint the piemans are essentially infinitely thick for thermal 
neutrons. 

c-T ^ 

The reflectors savings ^ for this condition is defined from 
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(A-78) 



where subscript c denotes the coi^e and subscript r denotes the reflector® 
Equation (a«T 8) is written for the same reflector properties on both sides 
of the coreo For the condition at hand^ the properties of the two plenums 
are quite different because of the change in density of the water coolant® 
To account for thiSc> the thermal savings is approximated as follows^ 
remembering that the index J = 1 refers to the lower plenum and J ® 
refers to the upper plenum® 
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With this definltio33j, the axial buckling for the thermal group is 
determined from 



The cross section for the axial leakage when the radial flux calculation 
is performed then is defined by 



In the radial reflector'^ the buckling and leakage cross section for 

the thermal group are assumed to be equal to those for the fast group so 

that equations (A=7^) and (A<=77) define the thermal properties for this 
region. 

The assxjmptloDs involved in equations (A=765 and (A->8o) have been 
compared with more precise ealcuiationso The method of this latter 
calculation followed the pattern established in the preceding section. 

This simply involved rotating the direction of calculation 90° from 

that in the preceding section and proceeded by determining the integrated 

flux in a radial region and the loss out the top and bottom faces of the 
reactor by integrating the currents out over these areas. The results 
of the two methods were sufficiently close to permit the use of equations 
(A»76) and (A=8o)p simpler formulations which take less computer calculation 




2 




(A-80) 




(A-81) 



time. 
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A«14<, Energy Dapeadfent gross Sft^tloas 

The program has been forintilated as a tvo-group problem. The 

mathematical treatment for a higher number of groups simply in= 

creases the number N appearing in (a=12)j, but does not change the 

methods discussed in all previous "sections. The number of groups 

vas selected as two to give a representative picture of the power 

distribution and at the same time to hold down the computation timej 

two groups are also necessary^ in this latter connection^ to keep 

computer storage reg.uirements to a minimum^ one problem associated 

with the MTT system tap* for the IBl 7090 which limits the core 

storage available to the programmer to roxsghly 2 U. 5 K registers. 

To determine the energy dependent isotopic microscopic cross 

7 

sections of the cell constituents^ the program GAM-1 was used. The 
spatially homogenized densities of the constituents were ob"tained as 
discussed in the section "Ecmogenlzation of Subdivision Properties". 

GAM-1 provided the isotopic microscopic cross .sections of the fast 
group j =2 1 for fission, absorption, transport and dawnscattering 
and the number of neutrons produced per fission for fuel material. 

These microscopic cross sections were then used to define the macro- 
scopic properties of the different cell regions (Figure A. 2). 

The thermal absorption and fission cross sections were obtained 
hy averaging over a Wilkin’s spectrxon with the use of a program 
available at MIT known as THEHMIT. The density inputs to this program 

were also determined by the method previously described. The absorption 

8 

cross section for each of the isotopes were taken from BHL-325 I fission 
cross sections, in the case of fuel material, also came from this report. 
The individual scattering cross sections of the different isotopes were 
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assvmied to te constant over the theraal range. The results of 
this calculation provided the thermal macroscopic properties of 
the different cell regions. 

I 

Within the eore^, the density of the coolant changes. This 
consequently changes the shape of the two flux spectrums determined 
in GAM=1 and THERMIT and also leads to an infinite number of 
combinations of cell constituent densities and cross sections. The 
approach taken in this study has been to define an average coolant 
density in the core by assuming a flat power distribution and a 
given reactor power level. Since all other physical densities 
within the cell are fixed^ the cross sections applicable to a given 
reactor size^, power^ and inlet flow conditions are based on this 
mean coolant density. When the reactor power distribution is 
defined, the only spectral influence to the flux determination occurs 
through the variation of the coolant density and the resultant change 
in the macroscopic properties of cell regions 1 and 5» Ibe microscopic 
cross sections are assumed not to change. 

A.l^. Eh?aluation of the Mean Chord Length for Resonance Absorption 

The getxnetry of a fuel element influences the magnitude of the 
resonance absorption cross section of any fertile material, which is 
included in the element. In the energy range for resonance absorption, 
there is a strong selective absorption as the neutrons proceed into the 
fuel, away from the moderator. This decrease of the resonance energy 
flux reduces the effect of the resonance material within the fuel eleipent. 
To account fc«r this decrease in effectiveness, the effective resonance 
integral I^ff for a f-uel element is often expressed in the form 
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Igff S A + 3 (s/m) 



(A-82) 



where A and B are experimentally determined constants^ dependent 
on the material strnctnre of the element^ and M and S are the mass 
enclosed within the sttrface and the surface area of the element, 
respectively. For a given density of the fuel material, the ratio of 
(m/s) represents a characteristic dimension of a solid fuel element. 

When the fuel element is an annular cylinder surrounding a 
moderator, the calculation of the spectrum dependent resonance 
absorption cross section becomes more undefined. The manner of includ- 
ing the effect of the fuel element geometry is dependent not only on the 
physical dimensions of the fuel, but also on the properties of the en- 
closed moderator. 

The method of determining the resonance cross section of the 
fertile material has been through the use of the program GAM-1, 

The geometrical input, which characterizes the fuel element for the 
determination of the resonance absorption cross section, is the mean 
chord length 1 for a neutron transiting the fuel material. Although 
different methods have been proposed to account for the (s/m) ratio in 
a.' formulation defining Igff , a searcja of the literature reveals no 
analytical representation defining the mean chord length T, In lieu of 
a more refined analysis, the following simplified model is proposed. 

Consider first the case of a neutron with energy in the resonance 
range which enters the fuel frera the region exterior to the annular 
element. As seen in Pig-or'e A.h-, a plane of symmetry can be defined 
longitudinally through the element, which passes through the center of 
the element and the point of entrance. Then, as indicated in the figure. 
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NEUTRON ENTERS FROM 
OUTSIDE THE FUEL 




CHORD LENGTH GECMETRr FOR AN ANFJIAR FUEL ELEMENT 

Figws A, 4 



the possible angular variation vitbin one of the symmetrical regions 
of the direction than can be taken in traversing the fuel element is 
from 0° to 90°<> Assuming that the distribution over these possible 
angles is constant^ the probability that a neutron will enter the fuel 
element such that its angle of flight lies between ^ and + d^ is 

d0 « ^ (A-83) 

The length of the fuel material traversed (i.e.^ the chord, length) 
before the neutron leaves the fuel region^ either going to the moderator 
filled circular zone in the interior or the moderator zone on the outside, 
can be written in terms of the two diameters d* and D*" and the angle of' 
flight jie When the inside diamter d'?^ has a value greater than zero, there 
is a discontinuity present in the magnitude of the chord length as 0 



1h2 



varies across the angle Detezmining the chord length 1^ for a 

given angle ®ean chord length in the fuel region is found ■by- 

weighting the length at ^ hy the prohability of the flight at angle 
and integrating over all possible values of The resultant 
expression is 

is t= - f I" cosj^ <” ^^cos^^^ •» 1 + d'*^ ' , 2. r * COS0 d0 

D * < -^0 ^ ‘ \ ^ 6 ^ 

(A-8U) 

When (d'/B") equals zero^ the fuel element is a solid rod, and 
the mean chord length for outside entrance (Tq/d*) = As (d*/D*) 

approaches vuaity, (Tq/d^ ) goes to zero. For finite values of (d*/D*) 
less than unity, the first integral on the LHS of (a-=81i-) cannot be 
evaluated in closed form. 

\-Jhen the flight path is fron the inside moderator across the fuel 
element to the outside moderator region, a plane of symmetry can again be 
defined. The possible variation of the angle is from 0° to 90° and, 
if the distribution is assumed to be constant over this range, the 
probability that the angle of flight will lie be-tween © and Q 4- d© 
is given by 

p(©) d© = jP- (A-85) 

1 « 

The chord length 1^^ for" some angle © can be evalviated also in 
terms of d* and D*, and the mean chord length 1^ is determined by 
weighting each possible length 1^ with the probability for the occurrence 
of this length and Integrating over the range of B° to 90°- The geometrical 
determination for the chord leiigth is simpler in this case^ since there 



is no discontinxiity caused “by sweeping across a tangent boundary 
angle. For the case of Inside entrance^ the mean chord length is 
given hy 
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where 

X (d*/D*) 



(A-8?) 



In the limit of (d^/D*) going to zero^ the value of (Tj^/D*) 
approaches D /2. As (d /D") goes to imity^ the mean chord length (1^/D ) 
goes to zero. 

For any given set of conditions^ the mean chord length for a neutron 
transiting the fuel region is fixed. But as just seen, the calculated 
value of the geometrical length is dependent on whether the point of 
entry to the annular fuel region is from the interior or exterior 
moderator region. To resolve this difficulty, it is necessary to postulate 
a physical model which predicts the mean chord length for a resonance neutron 
entering the fuel from either moderator region. 

Diffusion theory defines the resonance neutron cxirrent in the positive 
radial direction as 
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(A-88) 



and in the negative radial direction as 



r 







(a-89) 



Denoting (d /2) as the outward directed current at the Inside radius 



of the fuel tube and ^ (d”^/ 2) as the iinrardly directed current at 
the outside radius of the fuel ^u‘be 3 the fraction of the total number 
of neutrons entering the fuel tube frcan the exterior moderator region 
is given by 

Fraction entering from D*^^(D^y2) 

the outside region f . — , „ (a-90) 

° - dV(a*/2) 

With this definition, the mean chord lengTh can be written as 

(1/D*) s. 4- f4 (h/D*) (A-91) 

where 

fi - 1.0 = f^ (A-92) 

Unfortunately, the current values have to be deter-minefl frcmi the 
spatial distribution of the resonance fluxo Ihe flux distribution is 
dependent on the resonance cross section, which is the quantity that is 
ultimately to be determined after defining a mean chord length, so the 
problem is of an iterative natuir®. 

If it is assumed that the current values at the inner and outer 
boTXQdary are etjual, the fraction of neutrons entering from the exterior 
moderator region is given simply by 

fa le 0 

1,0 4- (d^/D*) (A“93) 

This assumption postulates that the number of neutrons entering from 
either the exterior or interior moderator region is proportional only to 
the surface area of the outside or inside fuel material boundary. 
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As a first approodLmation, this assumption has intuitive appeal. 

The direction of the ei^ror vhich it introduces into the calculated 
chord length and resonance cross section can he demonstrated as 
follows. The boundary conditions for a radial plot of the resonance 
flux require that the flux have zero current at the oxdgin (center 
of the enclosed moderator region) and at the edge of the exterior 
moderator region. Consider that the fast flux is constant across 
the cell;, that the resonance so'Ji'ce terms in the separated moderator 
regions are equals and that there is no source terro for resonance 
neutrons in the fuel region. All slowing down takes place in the 
moderator regions. The downscattering cross sections in the two. 
moderator regions are assumed to he equal and represent the "ahsorption" 
cross sections for these regions. The resonance ahsorption cross section 
in the fuel is assxaned to he larger than the moderator cross sections. 

With this set of eo‘nditions;> which represent the physical situation 
quite reasonably^ it can he demonstrated that the cxxcxent J (d /2) is 
less than <J“(D* /s) . This result shows that the value of f^, as 
determined In (A-93) is too high. As previously shown^ the value of 
(1 q/B") is greater than (T^/D'') when (d*/l)") is zero. Table A, 

Indicates that (Tq/D*) is always greater than fox' all values of 

(d /B“). fflae assumption of equal currents predicts a value of mean chord 
length, which is high. Sius, the calculated resonance ahsorption cross 
section will he low. 

When defining the effective resonance integral Igff for the condition 
of a hollow fuel element filled with a moderator, it has been suggested 
that all the material within the exterior fuel surface he homogenized. 

This procedure thus decreases the density of the resonance material by 
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considering it to “be distributed over a larger vol\m)e. If at the 
same time, the chord length were calculated on the "basis of a solid 
element, the net result would be to doubly decrease the magnitude of 
the resonance cross section. 

3y calculating the density of resonance absorbers, based on their 
actual physical density in the fuel element, and the chord length, as 
predicted by (A°91) ("93)5 the two Inputs for the resonance 

calculation cause opposite effects and tend to cancel. The determination 
of the final discrepancy would r®( 4 uire a more exact analysis and is beyond 
the scope of this theslso 
A. l6» Gritica 11 ty jDe~^ 3 Mnination 

Whether a given assembly of cells will sustain a nuclear chain 
reaction is determined from the results of the radial flux mapping across 
the mid«plane of the reactor. If the reactor \ander consideration is just 
critical with an effective multiplication factor l%ff of 1.0, then the 



total aeatron production vlt:Mn the reactor is to the total 

absorption plus leakage out of the top and Tbottorn faces of the 
reactoTo For values other than unityp is defined by the 

integrations across the ractor as 




Fi^om an arbitrary value of \.ffs, oldier than ztro^ the concentration 

j 

of a poison distidbirted scsnewhere ■within the reactor is assumed and this 
concentration is added to the absorption cross section. Given an assumed 
■value of the concentration and some desired ^eff the problem can be solved 
by trial=and=error to ■within specified limits of convergence to define 
the magnitude of the concentration. 

With the method of caleulatlor followed^ how this ’’mathematical” 
poison is put in the reactor has a physical co^onterpar^c. For the case of 
a burnable poison^ the inbuitlve approach is to load a cell region with 
the assumed poison. Most probabiy^ the cell region containing the poison 
would be the solid moderator region, Thr-ough the homogenization of the 
cell properties to define the reactor subdi'vlsion properties j, the effect 
of the poison enters. On the other hand^ when synthesizing a ring of 
control rods around the reactor center linep the approach would be to load 
the poison directly into the specified radial region and proceed ■with the 
calculation of 
A, 17, Errors 

The effect of initially assuming a two°dimensional rotationally 
symmetric characterization for the flux and nuclear properties would not 



introduce apprecla'bls eri-or into the protlera unless the react oi 

i 

operator had^ for some anfareseeable reason programmed the control 
rods to cause a large skewing of the fl^jx or that the distrihation 
of fuel aro>ond the centerlLn* had conslderahle vaioLation, The major 
eri'or is introduced through the assumption of a product type flux 
representation. 

This error hecomes more severe as the corner regions of the 
core are approached. A true twcs- dimensional representation of the 
flux would show moT'e peeking of the thermal fltac in this region than 
as predicted hy this model. This effect is brought more clearly by 
equation (A-7^)j) which descrDDes the radial flow of neutrons when 
mapping the flux in the axial direction for a one radial subdivision 
core. The exact magnitude of this erroi' cannot be readily stated 5 , 
since a program for comparing the model developed heie with a two-- 
dimensional model is not available. Any power peaking radially 
across the ccai^e is accentuated by this lack of correct representation., 
if the peak power is in the central region of the core. Itoti the stands 
point of coaservatisiD;, this Itm.it* the core performance and underestimates 
the ability of the core to proiride a given power slDject to certain 
engineering constraints. 

The energy pi^oduced per flssio.u is assumed to be confined to the 
point at which the fission occurred. This neglects the effect of heating 
in the solid raoderaxor region 'ry slowing down and gamma heating and the 
effect of gamma heating in the reflector. This assumption places more 
stringent requirements on the coolant to remove heat from the fuel region. 
B'at it also imposes a reqclreinent to remove heat from the moderator- and 
reflector. The amount of energy involved Tot- this requirement is of the 



order of 10 ° 15 ocrc of apiprondmatily 200 Mev recovera'ble from 
cash fission that; 02 CJrs® TM,s assumption introduoss an error in 
the calculated power dlstrlbutiosj of approximately 6^„ 

The effect of axial flux sti-eamirig when hcrac^enizlng the 

1 

constituents of a cell has also been neglected. More errcff is introduced 
for those regions in the »“ighbo(rhood of the plenrjms than in the interior- 
core regions. This is particularly true for the fast flux (group l), 

I* 

which follows^ more or less^ the .-us'ial cosine representation. A two^ 
dimensional description here would also f-iirnish more exact Itncwledge 
than has been assumed by the purely onft=>dimensioE5l method of hcxnogeniz- 
Ing the different reactor subdi-vlsioa cell pioperties. 

iCther errors have been meraloried thxoughoat this Appendix^ which 
arise as a result of the simplifications necessitated by the limitations 
of Section A. 1. 

A«l8. iSredits 

The programming of certain of tn* mathematical e^juatlons was based 

9 

on the previously written program A'iM‘=5« Those sections of the program 

(Appendix G) of this thesis involved with the fl-nc difference equations 
and their convergence were T^wrl%%eo from A!^yt=’5 f-'S fit this problem. 
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£,1. Ictroductioa 

The vail temperatures of an anc-ilar nuclear fuel ele*ment are 
controlled ty the local temperatures of the tvo counterf loving coolants 
surrounding the fuel element. The variation of the tvo coolant temper- 
atures is determined hy the amoimt of paver that is produced in a given 
length of fuel element^ the fraction of this pover which goes to the 
coolant stream inside or outside the fuel element^ and the transfer of 
beat across the fuel element between the coolant streams caused by their 
temperature difference. 

The temperature gradients within the fuel and cladding material are 
much steeper in a direction perpendicular to the direction of coolant 
flov than in a direction parallel to it. The longitudinal temperature 
distribution is determined by the longitudinal variation of the cladding- 
coolant interface temperature and the variation of the heat generation 
rate. 



Within a conducting region^ the temperature distribution is deter- 



mined by the Four-ier heat conduction eq[uation. 
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vhich has been written to indicate the case of a rotationally symmetric 
distribution assuming a constant value of thermal conductivity k. Rota- 
tional symmetry is a result of the definition of the flux distribution 
across a particular axial position of a cell. 

Using the knowledge that the longitudinal gradients are not as 



steep as the radial onesj, (B-l) can be vritten in the form 



where H(z) is the total beat production in a unit length of fuel 
element centered at axial position % and f^r^z) is a normalized shape 
function for the radial distribution at height z. Equation (3-2) can 
he integrated to yield the expression 



The radial "constants" and are evaluated by the appropriate 
boundary conditions specified by the coolant temperatures or heat 
fluxeso is fotxnd by performing the mathematical operations indicated 
in (3=2) on the shape factor ftr^z). 

To estimate the errors involved with the assumptions that are made 
in (E“3)-> consider the following r.^ierical example, A solid fuel element 
of diameter 0,1 feet and thermal conductivity k = 1.0 £tu/hr/ft/^‘ is 
assumed to be producing heat oUlformly at. the rate of 100,0 Btu/hr/ft 
of length. This heat is removed on the outside by a coolant flow of 
10,0 Ib/hr; ttie coolant is assumed, to have a specific heat of 1,0 Etu/lh/°F 
and to undergo no phase or flow pattern change^ so the heat transfer 
coefficient at the fuel ^ coolant interface is constant, 

Neglecting for the nonce the hear flow axially through the fuel 
element^ the temperature rise of the coolani is found to be 10°F/ft. 

Since the heat transfer coefficienn was assumed to be constant^, this 
gradient also represents the axial temperat^ire rise in the fuel elememt. 

From (£“3) the radial temperature rise from the fuel-coolant interface 




(B-2) 




(B-3) 



to the centerline is approximately which represents an average 
radial gradient of l60^f/ft. With these nximhers^ the amount of heat 
produced in a one=foot length that flows axially out along the fuel 
material is approximately 0 o 08 ^. 

When a phase or flow pattern change occurs in the coolant^, or 
the longitudinal variation of heat production changes in the fuel, 
a change occurs in the axial gradient. This variation does not 
introduce any appreciable error in the for-mulation (B«3). However, 
at the ends of the fuel material^ a step change is made in the heat 
production rate (for a reactor with axial reflectors) and a local 
.error is present. This error is confined to a relatively short 
segment of fuel materialj approximately two diameters in length. For 
a reactor which has an upper and lower coolant plenum, which are adjacent 
to the ends of the fuel elements, the fuel temperature will be lower 
than those predicted by (£°3)» 

The spatial distribution of heat production across the fuel 
material is determined by eig^^uation (AS)y a one^dimeasional representation 
which is assumed to be rotationally symmetric and found fl'om the solution 
of the flux difference e'^uations. The one-'dimensional counterpart of 
(B=1) could also be written in terms of a difference equation by utilizing 
the discrete heat generation values at the different space mesh points. 

For the problem at hand, it is desirable to define the radial heat 
generation rate across the fuel in terras of a continuous function. 

A polynomial has been chosen to represent the distribution of the 
heat generation rate, in order to reduce the order of the polynomial 
which is necessary, the discrete values of heat generation rate have been 
fitted by the method of least squares. This leads to a functional 
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(B-4) 



in which h(z) is heat produced per unit length and per unit time in 
the fuel material and the coefficients a^(z) in conjxinction with the 
distance r define the shape of the power distribution radially across 
the fuel. The coefficients a^(z) are normalized such that 



where R 2 ^3 represent the geometrical limits of fuel material, as 
seen in Figure B . 1, 

One reason for formulating the heat generation distribution in 
this fashion is because of the trial-and^error method of solution 
necessary to define the coolant temperatures and hence the fuel temper- 
ature. From the preceding nuclear calculation the shape of the distri- 
bution is known. With the shape defined, it is possible to determine the 
fractional heat split across the fuel, i.e., the fraction of total heat 
produced that goes either to the inside or outside coolant. Keeping the 
shape factor constant, the problem can be reiterated until the fractional 
heat split does not change, within specified convergence limits. The 
change between these iterations then is only influenced by the variation 
of the coolant states and their associated heat transfer coefficients at 
the two cladding-coolant Interfaces. 

The second reason for formulating the heat generation shape distri= 
bution in this manner is to reduce the necessary computational time. 

When determining the coefficients ai(z} in equation the following 




\ i=l 



(B-5) 
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set of n simultaneous linear equations are necessary in making 
the least square fit of the m points in the fuel. 



X A = B 



(B=6) 



rn 




xij = 2L 



k=l 



(B=7a) 



m 
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(B-7b) 



The coefficients of A are the desired values of the fitted coefficients. 
Equation (B=6) can he inverted by a triangularization method similar to 



a Gauss=Jordan reduction. This method is veil-suited to computer program- 
ming techniques. 

Once the distribution of heat generation across the fuel is knovn 
and the fraction of the total heat produced going to either of the tvo 
coolant streams is determined^ the fuel temperature profile can be 
calculated using (B-3)« 

In defining the conduction equation^ it has been tacitly assxamed 
that the thermal conductivity k in each region is constant and has been 
determined such that it represents an average of the total regional 
variations. 

Figure Bi shews the geometrical distances involved when calculating 
the temperature profile across the fuel. Cross=hatching at the interfaces 
indicates a temperatijre discontinuity represented by a heat transfer 
coefficient. Between the fuel and claddingy the temperature discontinuity 
Is caused by gas accumulation and non-perfect contact between the two 
materia Is. 
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GECa^TEY FOR FJEL TEMPER^.TURE DETERMINATION 
FIGURE Bel 



B.2. Fuel Temperatijres at the Cladding-Fuel Interfaces 

Let and be the heat flowing per unit length and per unit 

time to the inside and outside coolant strearasp respectively. Using 
the concept of thermal resistances^ the temperature differences between 
fuel tempera t\ores at the fuel^cladding interfaces can be written in terms 
of and and ‘the heat transfer properties defined in Figure B.l as 
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In equations (B=8 )j, equivalent heat transfer coefficients can be written 
for the bracketed terms such that 
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At this point, define the temperature difference across the 
fuel material, a value needed in the next section. 



P33 - T32 = (t^ - T]^) 



^5 

2tiR3h3 



Ql 

2,TR2^ 



(B-10) 



B.3« Determination of the Heat Flow Fraction 

At some given height in the cell, the temperature distribution 
is defined in the fuel material by (B“3), where the qviantity C3 is 
determined from the polynomial representation in (B-lt-). When the 
mathematical operations have been performed, the fuel temperature T^Cr) 
is given by , 

ToCr) = C,ln(r) + C2 “ _H 

^3 



E 

2 

i=l 



a^r 



i+1 



( ^2 



•I 



(B-11) 



To determine the fuel temperatiire, both C]_ and C2 must be evaluated. 
For determining the fraction of heat going to the outer channel, only 
the integration constant C']_ needs to be evalviated. To find Cj_, evaluate 
(B-10) at r es R^ and r =3 Rg, take the difference of the two expressions 
and solve for yielding 



Cn = 



T33 » T32 

1b(R3/R2) 



H 



k3ln(R3/R2) 



i=l 



(i-l)2 J(B-12) 



The quantity can be eval’jated as 

Q5 = 2 R3 k 3 'ij dT^(r) I 

dr I r R3 



(B-13) 
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which permits writing in terms of Q5. 



Cl S3 




n 




i=l 



-ii53 

(i+i) 



i+l -1 



Q 5 



(B-14) 



In steady state, 

Ql + Q 5 «s H (B- 15 ) 



Eliminating C]_ from (B-12) and (B-1U) and using (B-IO) to replace 
the fuel temperature difference gives 



— ^ _ 1 _ 

2 k3 2ffln(R3/R2) 



S3 - T 5 - Ti 

in (R 3 /R 2 ) 



+ 



- 1 Qi 

R3I13 27fln(RyR2) 

_ ^ r „ 1+1 1 

^ I aiRs 

^3 . 



H 

K3 ln(R3/R2) 



n 

*21 H 

i“i I Tml^ 





(B-16) 



Ql*can he eliminated from (B- 16 ) using the result of (B-15)* 

Before solving for Q 5 , it is advantageous to define an effective thermal 
conductivity kg between the two hulk coolant temperatures. This value 
is defined to he 



.13= JL> 4. 1° (R 3 /R 2 ) 4. _l 

ke R2h2 R3h3 



(B-17) 



Using this definition, Q 5 is specified. 
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(B-18) 



The first term on the RHS of (B-18) represents the heat flow per 
unit length and per time that would take place in a conventional counter- 
flow heat exchanger. The remainder of the terms on the RHS determine the 
heat flow to the outer coolant stream^, dependent only on the relative mag- 
nitude of the thermal harriers which are encountered and the shape function 
of the heat generation rate. The fraction of heat produced in the fuel 
material;, which goes to the outside coolant channel, is given hy 



B,4» Influence of Fuel Thermal Conductivity on Heat Flow Fraction 

An effective thermal conductivity of the material separating the 
two coolant streams was defined in (B“18), This was shown to he made up 
of three terms, one of which directly related to the thermal conductivity 
of the fuel material and the remaining two to the cladding conductivity 
and the interface heat transfer coefficients. 

To demonstrate how the heat flow fraction is influenced through the 
relative magnitude of k^, consider the two cases when k^ = 1.0 Btu/hr/ft/®F 
and k^ = 25.0 Btu/hr/ft/°F. The first case has a value typical of a 
ceramic fuel, such as UOg, while the second is more representative of a 






(B-19) 
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r 






metallic fuel. Artitrarily, assign the folloirlng values to the other 
geometrical and heat transfer parameters. 

(R2/R1) = 1.1 

R2 S3 0.02 ft 
(R3/R2) =3.0 
(R4/R3) = 

« Ki^ = 10.0 Btu/hr/ft/°F 
hi = hg = hg S3 hj,^ S3 1000.0 Btu/hr/ft^/°F 

Using the assumed values, the following numbers are calculated. 



1 ^ 0. 1145 

R2h2 



1 » 0.0375 

R3h3 



ln(R3/R2) 

^3 



k3=l . 0 



1.1 



= O.OWt 

kj (k3-25 



When has a low value, it predominates in the expression for kg and 
the heat flow faction to the outer coolant channel beccmes relatively 
unaffected by the heat transfer coefficients at the cladding - coolant 
interface. If k^ is large, the reverse is true. The heat transfer flow 
fraction is, of course, influenced by the shape of the heat generation 
rate across the fuel. 

B.5. limiting Case for Heat Flow Fraction 

If the fuel has a low thermal conductivity, a simple relationship 
can be derived for the flow faction to the rate coolant when the assumption 
is made that the power distribution is constant across the fuel material. 

With the assumption of a flat power distribution, only the polynomial 
coefficient aj has a finite positive value; all other coefficients are 
identically zero. For these conditions, equation (B»19) can be simplified to 
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where 



55 

H 



“ (x^-l) + x^ln(x^) 
(x2-l) In(x^) 



(B-20a) 



X . = (R3/R2) (B-aOh) 




B.6« Fuel Temperature Distribution 

When 0^ has "been determined in (B-19)^ the integration constant 
Cl can be found in (B-1 U)p Once C-^ is knovm^ the second integration 
constant C2 can he found in frcxn evalxaation with the fuel 

temperature at either fuel - cladding interface e The temperature distri- 
bution at any point in the fuel is then identically fixed with (B-ll)o 
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B. 7 . Fuel Temperatirre Distribution when Outside Coolant Flew Is Blocked 
As a limiting case for this situation, it is assumed that the 
temperature gradient is zero at the position r «= and all heat 
produced in the fuel leaves radially at r « R2. When this occurs, 
the fuel temperature T32 at r = R2 is given by substituting H in (B-8a) 
to give for T32 



T32 



X H 

” 2i(R2h2 



(B- 21 ) 



The boundary condition on the slope at r = R3 reqviires that 

Cl ^ ^ r 

R3 i=l L (i+1) , 



(B-22) 



The constant C2 is evaluated at r = R2 to yield as the expression for 
no cooling on the outside fuel surface 



Ts(r) ^ T32 

^3 



+ H ln(r/Rg) 
^^3 



n 



isi 



H 



UT^ 
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B.8. Fuel Temperature Distribution vhen Inside Coolanj; Flow is Blocked 
This situation is just the reverse of the preceding one. Kow the 
temperature slope is assumed to be zero at r = R2^ so that all heat 
produced in the fuel must be carried away by the outside coolant. This 
condition results in the expressions 



'33 . % 



H 



n ^ . 

Ts(r) = T33 = H ln(R3/r) 2 



H 



i=l 



(i+1) + 1^3 
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APPENDIX C 



HEAT TRANSFER AND FLUID FLOW 

C.1 Intyoduetien 

“Die aagnitude of the two coolant heat transfer coefficients plays a 
determining role in defining the heat flow fraction for the power produced 
in the fuel tube which goes to the two coolant streams. Because of this in= 
fluence, a consistent and reliable method must be employed in order to prop- 
erly size the dimensional parameters of the fuel tube and coolant channels 
to achieve the desired steam exit conditions. 

As indicated by equation (B-19)» the formulation of the heat flow frac- 
tion is more properly expressed in terms of thermal resistances, rather than 
conductivities or "heat transfer coefficients," The following sections pre- 
sent selected correlations used to predict the heat transfer coefficients and 
the temperature differential between the bulk coolant and heat transfer sur- 
face for a given heat flux. The temperature differential is directly pro- 
portional to the product of the effective thermal resistance (defined from 
the "heat transfer coeffieient") and the heat transferred per unit length of 
coolant channel. 

Convective heat transfer is functionally dependent on the velocity or 
flow profile ©f the coolant. This dependence is particularly noticeable at 
transition points for two-phase flow, in which the flow pattern undergoes rela- 
tively sharp changes, “Die coupling between flow profile and pressure drop is 
represented through a force equation written for an elemental length of 
coolant channel. For two-phase flow, a description of the velocity profile 
is necessary not only for heat transfer but also for pressure loss calcxilations, 
C,2 Numaricftl Description of the Physical Properties of Water and Steam 

When describing the heat transfer coefficients or thermal resistance at 
the coolant-heating surface interface, the quantities k thermal conductivity, 
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u dynamic viscosity and £ specific heat at constant pressure appear^ Addi-= 
tionally, either the specific volume v or density^ and surface tension may 
be required in the physical correlation. In the subsequent discussion, the 
liquid phase will be denoted by subscript f and the vapor phase by subscript 

The data for the values of specific heat c and specific volume v have 

1 ” 

been taken directly from the "Steam Tables", The values associated with a 
given value of pressure and enthalpy, these two being necessary to completely 
specify the thermodynamic state of the coolant, are obtained by linear inter- 
polation, Internally, the program reads in as data a set of steam table cards 
encompassing the region from 100 ®F to the critical pressure and from 100 to 
1500 psia over a selected range of 14 temperatures. The value of specific 
volume V is determined directly by interpolating between successive spanning 
data points. For the specific heat at constant pressure c, the quantity is 
calculated for the coolant, when it is in the subcooled or saturated state, by 

cf = ° (C=i ) 

T j+1 = T j 

where and j are the enthalpy values of saturated liquid above and 

below the actual liquid enthalpy and Tj^.^ and Tj are the corresponding temper- 
atures above and below the point. Defining the specific heat for the liquid 
in this manner is not quite correct, since there is in fact an increase in 
pressure P between the points Tj and Tj+'j , 

The value of the specific heat at constant pressure for the vapor Cg 
is calculated by two-way linear interpolation. The pressure is held constant, 
ibus introducing only the error associated with the assumption of linear vari- 
ation between the four points, two pressure and four enthalpy, circumscribing 
the actual state point. 

The variables CT, k and u have been determined by making least square 
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fits yielding a polynomial representation for their values at a given pres» 

2,3 

sure and phase, if appropriate, as a function of temperature. In this 
representation, the variable 

T' = T/100 (C„2) 

has been used, T is the bulk coolant temperature in degrees Fahrenheit. Fbr 
each of these quantities, represented generally by the symbol X, the describing 
polynomial is written as 

X = + A2 T» + A3 T'2 + A4 T'3 (C=3) 

The polynomial coefficients are dimensional, Ihe respective units arising 
for these variable definitions are: 



cr 


Ib/ft 


k 


Btu/hr/ft/°F 


u 


lb /hr /ft 



Coefficients for the liquid phase properties are given in Table C,1, 

The liquid viscosity Uf can be represented by only one curve, defined at the 
saturation point, between the saturation pressure and 5000 psia to within 
t 5^» For the case of thermal conductivity, the value corresponding to pres- 
sures above and below the actual state pressure is calculated and linear 
interpolation is iwed to define the state point conductivity, 

Bie dimensional coefficients for the polynomial representation of the 
vapor dynamic viscosity and thermal conductivity are given in Table C,2, 

Again, linear interpolation is used to define the values, when the polynomial 
coefficients are pressure dependent. 

The method of interpolation is illustrated in Figure C.1, Consider that 
it is necessary to find the value of the vapor viscosity at the state 1300 
psia, 600 ®F» A glance at the steam tables reveals that the saturation tem- 
perature at 1300 psia is 577,46 ®F, Thus, the state point lies between the 
saturation tempera txsre s at 1000 and 2000 psia. For this particxilar set of 



Table Co1 



POLYNOMIAL COEFFICIENTS DESCRIBING UQDID HEAT TRANSFER PROPERTIES 



Quantity 

<r 

k (saturated) 
k (1000 psia) 
k (2000 psla) 
u (satxirated) 



5.274 X 10°^ 
3.153 X lO”"* 

3.153 X lO^I 

3.217 X 10“'' 

3.049 



A2 

=3.448 X 10“7 
6.137 X 10“2 

6.166 X 10“2 

5.488 X 10“2 
=1.849 



A3 

= 1.435 X 10“7 

=1.186 X 10“^ 

= 1.136 X 10“2 
= 8.766 X 10"3 
4,046 X 10 ““’ 



A4 

1.457 X 10“® 
1.632 X 10"^ 
6.842 X 10“^ 

=1.601 X 10“^ 

=2.974 X 10*2 



Table C.2 

POLYNOMIAL COEFFICIENTS DESCRIBING VAPOR HEAT TRANSFER PROPERHES 



Quantity 
k (saturated) 
k ( 250 psia) 

k (1000 psia) 
k (1500 psia) 
u (saturated) 
u ( 0 psia) 

u (1000 psia) 
u (2000 psia) 



Ai 

=3.289 X 10“5 

1.639 X 10*2 
8.672 X 10*2 
1.703 X 10“'* 
1.319 X 10“2 
1.939 X 10“2 
7.692 X 10“2 

2.074 X 10““* 



A2 

1.317 X 10“2 

7.114 X 10 “^ 
= 2.010 X 10“2 
= 4.385 X 10“2 
1.419 X 10“2 
6.546 X 10“3 
- 3.426 X 10“3 
= 3.684 X 10“2 



A3 

=3.171 X 10“3 
1.215 X 10“^ 
2.221 X 10“5 
4.i»87 X 10“5 
=3.571 X 10“3 
=3.158 X 10“^ 
3.569 X 10“^ 
3.743 X 10“3 



A4 

3.537 X 10“^ 
-1.341 X 10“^ 
-7.211 X 10“5 

-1,443 X 10“^ 
5.185 X 10“^ 
1.243 X 10“5 
9.390 X 10“9 

=1.194 X 10“^ 
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Figure C,1 

coordinates, the viscosity is found by calculating the viscosity at the po'‘ nts 
along the curve u (1000 psia) and along the curve u (saturated). At 600 ®F, 
the saturation pressure of water is 15^2,9 psia. The viscosity at 1300 psia 
is found by interpolating on pressure between these two points. 

On the other hand, for the point at 13 OO psia, 6?0 ®F, as shown on 
Figure C,1, the viscosity at 6?0 ®F for the curves u (IOOO psia) and u (2000 
psia) is calculated. Interpolation on pressure to 1300 psia is then performed 
between these two lines of constant pressure, 

C«3 Forced Convection Non°Boiling Heat Transfer 

Ihe study of non=boiling heat transfer has resulted in different corre- 
lations which predict the temperature difference between the heated surface 
and the bulk coolant. The general form for these correlations is basically 
the same. Functionally, their variations result from the consideration of 
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the temperature=sensitive properties of the coolant and the mathematical 
description of the velocity profile in the turbulent stream. 

The commonly used representation of the forced convection non=boiling 

3 

turbulent heat transfer coefficient is given by the Colburn equation 

Nu = 0.023 Re®’® (C=4) 

expressed in terms of the dimensionless groupings of the Nusselt Nu, Reynolds 
Re, and Prandtl Pr numbers. Written in terms of dimensional parameters, the 
Colburn equation predicts the heat transfer coefficient h as 

he = 0,023 (k/D) (VD/vu)®'® (cu/k)^’^ (C-5) 

Ihe average bulk coolant velocity V and the hydraulic diameter D are the 
new symbols appearing in {C=5)* “nie velocity V and specific volume v define 
the mass flux G, 

G = V/v (C-6) 

Thus, the wall temperature of the heated surface h is determined in 
terms of the bulk coolant temperature Tg, the heat flux at the wall (Q/A) 
and the Colburn heat transfer coefficient hQ, 

Tw = Tg + (Q/A)/hc (C«7) 

For the first pass flow of the CFR core, the flow path is annular 

with the majority of heat supplied to the coolant by transfer across the 

Inner surface of the flow channel, A small percentage of heat is also gen> 

erated in the solid moderator region, due to gamma heating and the kinetic 

energy of neutrons as they are slowed down. This heating is neglected, thus 

imposing more stringent demands on the heat transfer surface separating the 

fuel material and the first pass coolant. 

The effect of the annular geometry can be neglected without appreciable 

4 

loss in accuracy. Using 
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hA = O0O20 (C-8) 

where ^ and ^ are the outer and inner radii defining the annular region 
and hA a corrected heat transfer coefficient for an annular region heated 
on the inner wall, it is apparent that the ratio (rj,/rj^) does not apprecia- 
bly affect the unmodified Colburn heat transfer coefficient h^ (C-5) until 

(ro/ri) > (0 o023/0,020)2 = 1.323 (C-9) 

For the CFR core, the value of is not reached at which the annular 

effect causes a significant variation in the heat transfer coefficient pre- 
dicted by (C-5)» Non-boiling heat transfer coefficients are subsequently 
predicted using the Colburn formulation (C-5)» 

The heat transfer coefficient for vapor flowing down through the in- 
terior of the fuel tube for the second pass heating can also be predicted 

by (C=5)« In this case the geometry is circular with heat added to the 

coolant from only one wall. This situation is similar to that previously 
considered, except that the ©ne-phase coolant flow is now all vapor rather 
than pressurized ©r subcooled water. 

More detailed predictions of the heat transfer coefficient for water 

vapor appear in the Uterature. For example, one recent proposed correla- 

5 

tion for steam is given by 

Nu s 0,0157 Re®*®^ Pr^^^ (1/0)“°'°^ (C-lOa) 

when the length L falls in the range 6 < L/D ^ 60 and 

Nu = 0.0137 Re®'®^ (C-lOb) 

for L/d"> 60. In equations (C-10), the properties of the steam are evalu- 
ated at the mean film t©mperat\nr>e (i.e,, at 0,5 + 0,5 Tw), Checking 

these correlations against the experimental data from which they arose 
results in a prediction quoted to be valid to within 10^. On the other 
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hand, it was found that when th© Colburn equation (C=5) was used, the prop= 
srties also being evaluated at the mean film temperature, th© predicted value 
of he was high at Reynolds numbers in the region of 2,5 x 10^ and 1,8/6 

high at 3«7 x 10^, Because no significant increase in accuracy results from 
going to correlations other than th© Colbrorn, equation (C-5) is retained and 
used in predicting on©<=phase heat transfer coefficients, 

C.^ Incidence of Boiling 

When the coolant is in the compressed liquid or subcooled state, boiling 
can occ\ir at th© heated surface, providing the heat flux and wall temperature 
are high enough to produce bubbles with the requisite amount of superheat. 

For th© case of subcooled boiling the bubbles, formed at th© heated surface 
and swept into the coolant stream, collapse when th© bulk coolant temperature 
is below the saturation point, resulting in a net steam quality of zero. 

When the wall temperature is sufficiently higher than the saturation 
temperature of the liquid coolant, the coolant at the wall may possess the 
necessary amount of superheat to produce bubbles. When this situation exists, 
the mode of heat transfer changes and th© Colburn equation is no longer ap= 
plioable , 

Several empirical formulations have been proposed to predict the requi- 
site wall temperature or heat flux necessary to produce vapor bubbles at the 
wall, McAdams fitted the results of experiments at 90 psia for an internal- 
ly heated annulus ©f 0,25=-in, ID, thickness 0,09 to 0,26=in, , for 20 to 150 

6 

®F subcooling when the upward coolant velocity was between 1 and ft/ sec by 

Tw “ Tsat = 1«97 (Q/a)°”^^ (C-11) 

Buchberg has proposed a correlation for subcooled water in a 0,26-in, ID 

7 

t3rpe 3^7 stainless steel tub© at 2000 psia as 

*(Q/a) = 0,0027 (646 = Tc) (C-12) 
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utilizing th5 Colbu.i"n eQUation and. McAdams coryslation, the incidence 



of bciiing is pnadistsd whenever 



Te + (Q/A)/hc > T-at + 1^9? (Q/a)®-^^ (C-13) 

For the set of assumed values: 

Tc = 500 ®F Tsat = ®F (1000 psia) 

G = 1.765 X 10^lb/hr/ft^ D = 0.0166? ft 

he = 5310 Btu/hr/.ft^/'-’F 



boiling occurs, as predi 



ted by (C-13j scoording tc t.he rrxmericai inequality 



'Q/a)/5510 ^ ‘A. 6 ■!- 1.97 

Solving for the limiting value of (Q/a) ^delds a heat flux of 5-63 x 103 
Btr/nr/ft''. Usijig the airect calou' ''.V.ori of one Buchberg eo ''relation, the 
0 '' ri; hoo>' ' . ’iv s o' - .'.s 6.A8 10-^ btu/hi'/ft^. 

A ccraparison between McAdams' and Buehberg*s correlations for the as- 
sumed set o'^' values given rb'ove indicates that nc si r'nlficant difference 

s .i ai-e extrapclatsd to iCOO psia. Considering 

hv Buchberg' s c.r -..lat- :n io supposedly valid to within - 10^ at 2000 psia, 
the choice of which tc us© is net well defined. 

McAdams’ corrslatior. has been artibrarily chosen for the prediction of 
the incidence of b.oil.i ng. On this basis, whenever 



Tc > T-sat + i-9? - (Q/A)/hc (C-l4) 

local boiling is assumed to occur and the prediction of the wall temperature 
using the Colburn .formula is no longer valid. 



C.5 Bolling Heat Transfer 

A schematic representation of the heat transfer coefficient and flow 

profile variation for a oncs-th'rough system (i.e., subccoled inlet, super- 

8 

heated e)?it) is shewn in Figure C.2. The more or less abrupt changes in 
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the heat transfer coefficient over the saturated region signify that the 
application of any single correlation to describe this variation is highly 
unlikely# Because of this# it becomes necessary to attempt to describe sep~ 
arately each of the successive regions through \diich the heated coolant flows# 

The literature aboimds in reports of the experimental and theoretical 
work that has been devoted to the study of boiling heat transfer, particularly 
over the period of the last ten to fifteen years. The wealth of material 
present has almost come to the point where bibliographies of biblicgraphies 
are being published. 

In order to make a partial comparison of the reports encoiintered in the 
search for a consistent and reliable method of describing boiling heat trans= 
fer in the CFR system, only a few of the many works enco\ontered will be men- 
tioned. The rapid advances of knowledge in this field may outmode the final 
selection that has been made hers. The choice of a suitable combination of 
correlations becomes extremely difficult, obscured by the fact that the major- 
ity of work that has bean published was dene at relatively low pressures. Of 
those reports that present resxilts at pressures applicable to the CFR system, 
the majority of work has been concentrated in determining the conditions 
resulting in "burn out" and little effort seems to have been devoted to the 
description of local heat transfer coefficients. 

Specifically for the region of forced convection subcooled boiling, in 

addition to the work of McAdams and Buchberg referenced in Section C.4, some 

9,10 

other correlations that have been s\iggested are 

(q/a) = [(cf/Const.P (uf/(Hfg^ Pr^*'*)) i(^f = X 

o'! (C-15) 

K (Tw = Tsat) J (*^w “ 

Tw=Tsat = 1.9 (Q/a)^^^ (C-16) 
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(C»17) 



= 35 log(p) 

Tw “ Tsat = 28 - 0.012 p (C-l8) 

The superposition technique of Rosenhow and Clark in (C»15) is clearly evi- 
denced by the two terms present, the first for boiling heat transfer, the 
second for non=boiling heat transfer. 

In the region of net steam generation, it has been observed that the 
heat transfer coefficient increases up to a certain vapor quality and then 
falls off sharply, the so=called burn=>out condition. This effect is clearly 
evidenced in Flgiire C.2; at the point where the heat transfer coefficient 
falls, the liquid film on the heated surface has been burned off or d 3 mamic 
instabilities cause it to break off. The flow profile of the liquid and 
vapor undergoes a change and, as has been observed, the remaining liquid in 
this higher quality region is carried as droplets in a flowing steam medium. 

The results of several correlations for the region of net steam gener- 

11 — 1 ^ 

ation (the two=phase region) are given below. In the subsequent dis- 

cussion the vapor quality x is defined by 

X = Wg / (Wf + Wg) (C-19) 

where W is the mass flow rate, and ths void fraction ^is described by 

OC = Ag / (Af •(- Ag) (C-20) 

f 

' where A is the cross sectional flew area. The subscript ^ denotes two- 
phase. 

htp = hf ((1 - x)/(l (C-21) 

htp = 0,060 (vg/vf)*^‘^^ (kf/D) (xD/a uf)^"^'^ (C-22) 

htp = C (kg/D) Reg*^-® 



(C-23) 



I 




I 

I 



-m 




In equation (C-23), C lor OJi- <x <0.5, 0.88? for 0.55 <x <0.65 

and 0.904 for 0.7 < x <0.8. 

^tp = (kf/D) (4,3 + 0.005 X (vg/vfV^^) 

((Q/a)/(G (GD/uf)°-'®°® 

(Q/A)b = kf CfP/ (1 = x) (T„ = Tsat)^ 

' (C-26) 

(H^-g + (Tgg^b “ f 

In equation (C=26), is a free parameter, graphically repx o , J as a 

function of the vapor density and heat of vaporization. 

For the region of liquid deficiency (Pigxxra C,1), Parker and Grosh re= 

port that two distinct types of heat transfer are present, depending on the 

15 

relative magnitude of the wall temperature. The Leidenfrost effect- was 
observed for high wall temperatures, for which the heat transfer coefficient 
was experimentally observed to be almost Identical with that found with dry 
saturated steam. When the liquid droplets in the mist flow did not achieve 
the spheroidal stats, the droplets striking the wall provided a local wet= 
ting action and heat transfer coefficients of the order of 3 to 6 times 
those fcr dry steam were observed. 

The coirslations indicated co>, f - -C - ^.C-= 26 ) cannot repre= 

sent the transitional effect of the loss of the liquid film on the heat trans= 
fer surface. The point at which the liquid film is lost has been variously 

reported as occiirring between qualities of 0.45 to 0.80, being a function 

"'.2 

of the mass flux and ^ heat 

The results of the correlations indicated above all showed wide dis- 
crepancies over their region of investigation, principally being of the order 
of t 20/^0 Microscopically, the complex phenomena associated with the boiling 
process are not understood and the dimensional or dimensionless groupings 
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are an engineering attempt to describe the observed experimental results. 

As noted previously, the data has been fitted generally to systems operating 
under pressures of 200 psia, 

Ihe pr cure adopted here to consistently evaluate the local heat 
transfer coefficients for regions of subcooled boiling or net steam genera- 
tion has used the Levy correlation (C=26), For qualities up to 70^, this 
formulation is assumed to be valid. Above 705^, the heat transfer coefficient 
is predicted using the Colburn formulation for an all vapor flow, following 
the results of Parker and Grosh. 

In the description of the heat flux (Q/a), the superposition technique 
is frequently employed, 

(*^/^)total ^ ^boiling ^non-boiling (C-27) 

This is the te^’^hnique dom'.ncvr-ated in the Rcsenhcw correlation (C-15), 

Assuming a given wall temperature Tvt (C=27) would be solved by trial-and- 
error to define an equivalent heat transfer coefficient hg, where 

he == (Q/A)total/(Tw = T^) (C-28) 

The errors associated with the formulation of (C=26) may play a deciding 
role in the size configuration of the CFR fuel element. To insure that the 
value of the equivalent heat transfer coefficient, for the subcooled and 
two=phase boiling regions is not over predicted, the ass’^miption has been 
made that the heat transfer mechanism is dependent only on the "boiling” 
process. A typical value for the non=boiling heat transfer coefficient 
will be of the order of T500 to 5000 Btu/hr/ft^/®F, while in the low quality 
region the boiling heat transfer coefficient will be roughly 10,000 to 
30,000 Btu/hr/ft^/®F, Disregarding the effect of the non=boiling convective 
heat transfer mechanism introduces a conservative note in the calculational 
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procedure, increasing the thermal resistance for heat flow to the first 
pass coolant and subsequently raising the wall temperatures for both the 
first and second pass heating surfaces, 

Ihe evaluation of the eqxdvalent heat transfer coefficient h^ is ob- 
tained by inserting the calculated value of (q/A) for (C=26) into (C=28). 

The free parameter Bl has been mathematically fitted from the data presented 
in the Levy paper using the method of least squares* Defining the param- 
eter y 

y - ^fg / (C-29) 

the quantity I/Bj^ is mathematically deerribed by 

i/Bl = -0,6163 + 2.297 y " 0.5357 + 0.03481 y5 (C-30) 

C.6 Burnout Prediction - ITie Critical Heat Flvix Ratio 

The controlling constraint on the performance of a water-cooled reactor 
is often the so-called **DNE (Danger, Nucleat Boiling )-ratio". Changes in 
the flow profile within a heated channel can lead to an extreme decrease of 
the heat transfer coefficient resulting in an inordinately high wall temper- 
ature . 

The continuation of the us® of the nomenclature "DMB-ratio" to define 
the point beyond which the coolant is unable to remove heat from a fuel rod 
or pin should be discarded. More realistically, the limiting constraint for 
heat transfer would be defined the "critical heat flux" or the "critical 
enthalpy rise". At its inception, the term "DNB-ratio" had physical meaning 
because of the constraint imposed on the pressurized-water reactor system 
and the fact that the early extremely conservative design approach did not 
allow for nucleate boiling to occur. The design of present day power reactors 
to operate irt.th the coolant in the saturated state has its limiting 
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constraints, but these are not caused only by heat transfer problems due to 
nucleate boiling but rather changes in the coolant flow profiles and the 
wetness or dryness of the heat transfer surface. In this sense, the term 
»DNB=ratio" has little physical significance. 

Extensive research has been and is being carried out in order to gain 
information that will lead to mere precise empirical or semi=analytical 
correlations that can be used to predict this constraint on reactor perform- 

16=19 

ance. Presently, the microscopic behavior of what is happening within 

the channel is still not understood, just as with heat transfer prediction 
for two=phase flow, Thus, it becomes necessary to use an empirical corre- 
lation which can predict the critical conditions with a reasonable degree 
of accuracy. 

The prediction of the critical heat transfer condition in this study is 
made using the formulation of Tong et al. These formulations are based on 
two different constraints, either heat flux or enthalpy rise. 

For the case of saturated outputs, the critical enthalpy rise 
is predicted by 

^ 0.529(Hf=Hin) + Hfg(0. 825+2. 

+ Hfg (0.548=0. 41 = 1,12vf/vg) 

The value of was found to be sensibly independent of the variation of 
heat flxuc along the channel. The range of applicability of (C=31 ) is 
given below; 

Geometries: circular tube, rectangular channel and rod bundles 

Axial heat flux distribution; uniform and non=uniform 
Mass velocity; 0.2 x 10^ to 4,0 x 10^ Ib/hr/ft^ 

Pressure; 800 to 2750 psia 
L/Dq ratio; 21 to 656 



Inlet subcooling (Hf = ® ^ Btu/lb 

Local heat fluxs 0,1 x 10^ to 1,8 x 10^ Btu/hr/ft^ 

Exit quality? 0 to 90 weight percent 
Equivalent diameters 0,1 to 0,5^ inches 
Heated=>to=wetted perimeter ratios 0,88 to 1,0 
Although the first pass outlet condition is, on the average, in the 
saturated state for the CFR system, it is conceivable that the local exit 
condition from some channel could be in the subcooled state. For this 
situation, the critical heat flvoc (Q/A)^ is given by 

■ (Q/A)^ = (0,23 X 10^ + 0,095 G) (3,0 + 0,01 ATgg) 

(0,435+1.23 (C-32) 

(1.7 - 1.4 (,f/v^)-l/3 

For the condition of uniform heat flux, (Q/A)^ yields values within i 20^ 
at a 95^ confidence level. For non=uniform heat fluxes, the calculated 
values of (Q/aL were approximately 40^ lower than those observed expert* 

C 

mentally. The range of applicability of (C=32) iss 

Geometries; circular tube, rectangular channel and rod bundle 
Mass velocity: 0.2 x 10^ = 8,0 x 10^ Ib/hr/ft^ 

Pressure: 800 to 2000 psia 
L/D- ratio: 21 =365 

Inlet subcooling (Hf = ^ Btu/lb 

Subcooling at DNB (^Tgc). 0 "to 228®F 

Local heat flux? 0.4 x 10^ to 4,0 x 10^ Btu/hr/ft^ 

Equivalent diameter: 0.1 to 0.54 inches 
Heated=to=.wetted perimeter ratio: 0,88 to 1,0 
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The CFR first pass channel geometry does not specifically conform 
to the limits of heated=to=wetted perimeter ratio. For the CFR design, 
this value is less than 0,5. The correlation of Tbng is used, however, 
for lack of a reliable correlation more closely fitting the CFR geometry. 

In the final determination of the controlling heat transfer constraint, 

the values of (iiPactual^/^c^ (QM)actual/(*^/^^c are both calculated. 
Above 10^ quality, only (C=31) is assumed to be valid. For outlet conditions 
below 10^ quality, the values of the two ratios are compared. The ratio with 
the higher value is taken to be the limiting constraint, and is designated 
the "Critical heat flux ratio" in the printout of computer results. 

Because the "burnout" condition is described locally in the final answer 
statement, the general determination of whether the "critical heat flux ratio" 
is a limiting constraint on the system performance should be based only 
on the calculated result shown for the complete passage through the heat 
transfer channel. This appraisal is based on the discrepancies noted for 
the prediction of the values fcr non-uniform channel heating. 

It should also be noted that second pass coolant critical heat flux 
ratios will appear which are negative. These numbers are generated by 
the following situation. As the saturated vapor enters the channel entrance 
for second pass heating, the pressure drops and a high quality two=phase 
mixture is present. The program doss not distinguish the fact that the 
"inlet sxibcooling" on the second pass is negative and that the final steam 
quality is unity, i.e«, in fact superheated. The second pass calculated 
values of the critical heat flux ratio have thus no physical meaning. 

C.7 Void Fraction Representation 

The introduction of the void fraction into the calculation of either 
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he*t transfer or pressure drop equations is an attempt to describe the 
slip flow present in a two=phase stream. The vapor velocity is different 

from that of the liquid. This then is a refinement of the homogeneous 

model in which a uniform bulk velocity is ascribed to both the liquid 

and vapor phases. 

The influence of the void fraction on the overall thermodynamic and 
pressure balance quations for the dimension and sizes of the CFR system 
is small. The primary importance in describing the effect is reflected 
in the nuclear calculations, where the total mass of water present at a 
given axial position along the first pass channel is a function of the 
void fraction. This is not to say, however, that the influence on the 
two=phase pressure gradient is not negligible. 

The "classical" work describing the variation of the void fraction 

20 

is that of Martinelli. and Nelson, In that paper, the void fraction is 
derivable from a set of curves which are pressure and quality dependent,. 

The fact that the first pass channel dimensions are small provides 
some flexibility in the representation of the void fraction. In the CFR 
system, the fuel elements are vertical, which presupposes that the flow 
profile distribution aroTind the element centerline is, on the average, 
rotationally symmetric. One suggested representation of the void ^fraction 
by Armand correlates the specific volumes and quality parameters, 

&c - (0.833 + 0.167 x) X Vg/(Vf + X ^fg) (C-33) 

The Armand correlation has been incorporated into the subsequent calcu= 
Utions, 

The explicit definition of the void fraction in (C-33) oakes the eal» 
culation very straight forward, without the necessity of extensive curve 
fitting to define a polynomial or other type representation or of tabular 
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dtU defining the property. Ihis correlation is, however, strictly not 
correct for the type of calculations involved with the CFR core. It was 
determin by measuring void fractions in horizontal heated pipe flows, 
rather than vertical. The general trends of this correlation have been 
borne out in vortical flow channels. It is, of course, accurate at the 
positions x = 0 and x - 1,0, 

The void fraction, as given in (C=33)t is assumed to be a smooth 
continuous function of the vapor quality, 

C.8 Velocity Profile with Slip Flow 

Ihe definition of the quality x and void fraction ^ fixes the velocity of 
the non°homogeneous liquid and vapor flow tdien the mass flow rate and 
cross sectional flow area are specified. 

For the liquid velocity V^, the describing equation is derived from 



Vf> s (C-3^) 

Vf = v^ W^/Af^ (c-35) 

Vf - v^ G (1 =■ x)/(l =o4) (C-36) 

where G is the total mass flux. In the limit of x approaching unity 
(an all vapor flow), the quantity (1 => x)/(l = o<) goes to zero. 

For the vapor velocity V , the describing equation is derived from 

D 



\ 

Vg = Vg G yiU 

Again, the slope of the void fraction is finite for the quality x going 

to zero, and V is zero for x - 1,0. 
g 

C.,9 Two=Phase Friction Factor 

As shown in Section D.l, the two=phase pressure gradient is caused 



(C=37) 

(C»38) 

(C-39) 



182 



i 







I 



# 




by th® sun of two terns, the first reflecting the influence of nonentun 
changes of the coolant as its thernodynanic state changes, the second the 
effect of shear along the confining walls of the channel. 

Ihe definition of the two>=phase frictional gradient depends on the 
choice of the frictional coefficient. As with the Martinelli et al, work, 
the ratio of the two<=phase frictional gradient is sonetime represented as 
a functional multiplier times the all liquid frictional gradient. 

Shrock and Grossman have experienced a measure of success in describing 

the frictional gradient in the conventional manner, that is, as a function 

22 

of a friction factor. In their work, the fraction coefficient Cp is 
defined as a pseudo-=Fanning friction factor, idiere 

Cp = 0.046/Re°*^ (C-40) 

when the Reynolds number ^ is defined from the total flow through the 
system. The dynamic viscosity for the definition is based on the quality 
of the mixture, such that 

l/u s x/u + (1 = x)/uf (C°4l) 

o 

The definition of Cp in (C=4l) is used subsequently for determining 
the two=>phase friction factor. Not® that for one=phase flow, either all 
liquid or all vapor, the Rejmolds mmiber is defined in terms of a one- 
phase fluid. 
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APPENDIX D 



ENERGY BALANCE AND PRESSURE LOSS WITHIN THE CFR CORE 
D.1 Introduction 

The method of defining the thermodjniamic coolant properties at any posi- 
tion in the core must be compatible with the nuclear analysis of Appendix A, 
This limits the description of the coolant state within any given axial re= 
tion of a cell to a set of values, which must represent the average state of 
the coolant within that region. In this fashion, the analysis proceeds. 

The energy balance that is used to describe the steady state operation 
of the system includes not only the consideration of the power produced in 
the fuel itself, but also the heat exchanger effect caused by the flow of 
two fluid streams of different temperature separated by a conducting wall. 

The energy equation \diich must be satisfied at all points along a 

1 

flow channel is derived from 

dH + d(v2)/(2gJ) + dz/j + dQ - dW^ = 0 (D-1 ) 

In equation (D=l), the following terms are understood: 

H = enthalpy 

V = bulk coolant velocity 

J <= conversion factor 

2 <= height above some given datum line 

Q = heat added 

«= shaft work removed from the system. 

Each of these terms must be considered, is zero since no work is 
taken from the coolant while it is within the core. The effect of height 
change can be neglected in comparison to the variation in the enthalpy term 
H. The kinetic energy variation (the second term on the LHS of (D=1)) could 
also be neglected. However, because of the close relationship between the 
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kinetic energy and momentum flux teras, the effect of kinetic energy varia= 
tion is included in the calculations with little additional computational 
effort. Under this set of assumptions, (D=1 ) becomes 

dH + d(v2)/(2gJ) -KiQ = 0 (D=2) 

where the terms in (U=2) are written per unit mass of coolant. 

Distinct from the energy balance considerations, the force balance on 
an element of coolant is not directly coupled to the physical processes that 
are occurring on the other side of the fuel tube. Ihere is, however, an in- 
direct coupling through the energy balance between the two streams. Primarily 
this coupling is exerted through the variation of the coolant density and its 
influence on the momentum flux term in the force balance equation. The 
basic force balance equation can be written as 

0 = - ) | </sV^A\ dz - \ (pA) dz - (PsA) dz (D-3) 

bz \ g y iz 

where 

^ - coolant density 
A - flow area 
p - pressure 

and subscript s represents the pressure magnitude variation introduced by 
shear at the confining channel walls. The change in pressure due to gravi- 
tational head is not included in (D=3)» since it can be neglected in compari- 
son with the variation of the other terms. 

A tacit assumption made in the subsequent development is that the pres- 
sure across the fluid stream is constant, regardless of the flow profile or 
state of the coolant, 

5.2 General Characterization of Kinetic Energy in One- o r Two-Riase Flow 
When the reactor coolant is water and the reactor core is designed to 
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produce superheated stean, the state of the coolant as it flows through the 
core varies from compressed liquid to a two=phase saturated mixture to a one= 
phase all vapor flow. This section is devoted to the development of a rela- 
tionship which is valid for any of these states and defines the kinetic 
energy term. 

The steam quality x is defined in terms of flow rates, where 

X = Wg / W (D-4) 

where W is the total flow rate through the channel and subscidpt g denotes 
the vapor phase and f the liquid phase. The total flow rate W is simply 

W = Wf + Wg (D-5) 

Conceptually, one can consider that x = 0 for an all liquid flow and 
X = 1 for an all vapor flow. The intermediate values of x then denote a 
two-phase flow. Note that with the definition of (D-4), in which the quality 
is defined in terms of flow rates rather than enthalpies, the concept is 
directly expressed mathematically. 

Using the definition of the void fraction o<(C=33)» the velocity of the 
vapor phase can be written as 

Vg = Vg X W / ( c5«,A) (D"6) 

and for the liquid phase as 

Vf = vf (1 = x) W / ((1 “ A ) (D-7) 

The kinetic term in (D=2) was written on a per unit mass basis. If the 
total energy (kinetic) flowing through some cross section of the coolant 
channel is considered, the following relationship is developed; 

W V2 / ( 2 g J ) = ( Wf Vf^ + Wg Vg^ )/(2 g J) (D=8) 

Note that this definition tacitly assumes that a slug of liquid is flowing 
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at the rate of Wf Ib/hr with an average velocity Vf ft/hr while at the same 
cross section a slug of vapor is flowing at the rate of Wg Ib/hr at an 
average velocity of Vg ft/hr. 

Factoring out the flow rate W from the RHS of (D=8) by using the defi- 
nition of quality x yields 

W V^/(2 g J) = (x Vg^ + (1 - x) Vf^) w/(2 g J) (D-9) 

When the definitions of the liquid and vapor velocities are inserted in 

(D=9), 

+ x3 Vg2/oi,2) (I>=10) 

Bie mass flux is denoted by G» Inequation (D-10) the flow rate W can 
be cancelled from both sides, leaving an expression for the kinetic energy 
KE, again on a per unit mass basis, 

KE = ((1 = x)3 Vf^/(1 -o<)^ + x3 G^/(2 g J) (I>=11) 

It immediately is apparent that (D=1l) is valid for liquid, liquid- 
vapor flow and all vapor flow. For the all liquid case, (D=1l) reduces to 

KE)f = v//( 2 g j) (I>12) 

while for the all vapor case 

KE)g = G^ Vg2/(2 g J) (D=13^ 

P>3 Ge neral Characterization of Momentum Flux in One- or Two-Phase Flow 

The previous section developed a general relation for the kinetic energy 
term in the steady flow energy equation. In this section, a general equation 
will be developed to characterize the momentum flux at a given cross section 
in a flow channel, Ihe notation of the previous section is employed here, 

a 

I^t MF denote the momentum flux. Mathematically, it is expressed as 
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MF = V (^V A)/(A g) 
or simply as 



(D=1^) 



MF = W V/(A g) 



(D=15) 



The total momentum passing through a given section is then the product 
sf (B=15) and the flow area A, 



Tbtal Momentxno = W V/g (D=. 16 ) 

which can be broken into a liqxiid and vapor component as 

Total Momentum = (Wf Vf + Wg Vg)/g (D=17) 

Using the definition of quality x 

Total Momentum = ((1 = x) Vf + x Vg) W/g (D=18) 

and finally the velocity relationships 

Total Momentum = ((1 «=. x)2vf/(l + x^Vg/sO w2/(gA) (D»19) 

Dividing this equation through by the flow area A yields the average momentum 
flux through the section. 

MF s ((1 = x)^ Vf/(1 = oO + Vgi;0 G^/g (H=20) 

D,4 Dif ferential EcuatioBs for Counterflow Energy Balance 



Ihe coupled differential equations defining the energy balance in the 
CFR core are best defined by first considering the geometrical sketch shown 
in Figure D.1. The physics of the situation can be envisioned quickly from 
this sketch. 

Defining the total energy tern U such that 

U = H + KE (I>=21) 

where subscripts 1 and 2 denote first and second pass flow, respectively, 
the differential equations for the two coolant streams over an incremental 
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SCHEMATIC OF COUNTERFLOW ENERGY BALANCE 
Figure D,1 



length of fuel tube dz are: 

Q + 2 Trke (T2 “ T^) (D-22) 

^ = f 2 Q = 2 irke (Ta - T^ ) . (D=23) 

where all the terms in (l>= 22 ) and (D= 23 ) are functions of the height z, 
except the flow rates W'j and W£» Ihe negative sign for the term on the LHS 
of (D= 23 ) appears because the flow is opposite to the direction of positive 
height z, 

Ihe terms fl and fZ are defined in Appendix B, For the case of first 
pass flow entering from the region outside the fuel tube, as shown in Figure 
D,1 and incorporated into the equations (D=22) and (D^23), the tern 

f^ - Q 3 / H (D-24) 

where the RHS -of (ll=24) is defined bj (B=19) and previous definitions of 
that appendix, Ihe quantity then simply 

(I>-25) 



f2 = 1.0 = fi 
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Th6 effective thei'-mal ecndustivity kg of (D-22) and (D=23) is defined 
by (B=1?) and prior relations. Given the temperature differential (?£ «= T^), 
the second terra on the RHS of (D=22) and (D=23) accounts for the heat trans- 
ferred from the "hot" second pass channel coolant to the "cold" first pass 
coolant across the fuel tube. (If no heat were produced in the fuel tube, 
only the second term on the RHS of (D=22) and (D-23) would be present, and 
the resxxlt would be a set of differential equations identical with those 
describing a "conventional" counterflow heat exchanger.) 

D,5 Siraplifi^atipn^qfLEquatipns for a Constant Ajdal Power Ih.stribution 

If the kinetic energy term is neglected in (D=21 ) and one considers the 
total energy of a coolant stream can be described an any axial position only 
by its enthalpy H, (D=22) and (D=23) become 

Q + 2f kg (T2 = Ti) (D-26) 

= W2 = f2 Q = 2 1/ kg (T2 = T^) (D=27) 

If one assumes that there is no sensible variation of the first pass 
coolant temperature over the length of the channel L, which presupposes 
(1) that there is not a large amount of first pass subcooling when one con- 
siders the mixed inlet temperature of the feedwater and recirculating water 
relative to the saturation temperature of the first pass stream, and (2) 
pressure drop during the first pass does not appreciably lower the saturation 
temperature at which boiling first commences, then the quantity T^j can be 
considered a constant. 

Assxaaing further that the water that is continuously recirculated 
through the core (i.e., = W2) loses no heat and defining the term to 

represent the inlet feedwater enthalpy to the core from the last stage feed- 
water preheater, the LHS of (D-26) can be rewritten as W 2 dH-j/dz, referring 
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the incrsmsiital change in H'j only to that water which goes through the second 
pass, yielding the new set 

Q + 2irke(T2-Ti) (D„28) 

= W2 = f2 Q = 2 Ttke (?2 = Ti) (D-29) 

Th 0 ratd .0 of t-h© s6Cond pAss enthalpy x^ise to the total enthalpy rise 
of the coolant which flows through the core can be described by 

f© ^^out ! ^^out ° ^fw^ (1^30) 

where Hg is the enthalpy of saturaged vapor at the first pass pressure o 

If one assmes that the enthalpy change of the second pass vapor coolant 
is proportional to the temperature rise, an average specific heat of the 
coolant 02 oan be defined such that 

= %nt = Hg) / (Tout = Tg) (D-31 ) 

^rtiere, by previous assumption 

Tg = T^ (D=32) 

As a final simplifleation, the power generation rate in the fuel tube 
over any incremental length dz is assvmied constant and the terms defining 
and are also assumed to be constant. Iftider these conditions, (D-29) 
becomes 



^ 25tk,a_lT2.^Til ^ ^ 
dz W 2 ©2 '^^2 

Defining the variable X to represent the temperature 

the two streams 



(D=33) 

differential between 



X = l2 . T, 

vher. 



(I>=3^) 
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X “ *=* Tg at z — 0 



(D=35) 



«nd 



X = 0 at z = L (D=36) 

equation (l>=33) can be integrated to give, in terms of an integration con= 
stant Xot 



X 



+6z 

Xo e 



+ Q 

2 7? ke 



(D=37) 



iriiere 

6 = 2 ITkg / (W2 C2) (D=38) 

VELth the assumption that all parameters relative to the coolants and 
the heat transfer process are constant over the whole length of the channel, 
the term Q, the average power gradient in the fuel tube, is simply 



Q “ W^2 ^fw) / ^ (&*39) 

Using the boundary condition (D=35) to eliminate the integration con» 
stant Xq and substituting the definition of (D=3^) into the boundary condi= 
tion (D= 36 ) results in the transcendental equation 

= 6 L 



^ = 1 ° 9 

f2 " 



(D-ifO) 



By choosing the radial dimensions of the fuel tube and coolant channels 
and calculating values of representative heat transfer coefficients of the 
two coolant streams, equation (D=40) determines the length of the channel L 
necessary to achieve the required final outlet temperature or enthalpy for 
* given flow rate W£ and ratio of second pass enthalpy rise to total enthal- 
py rise, 

Hiysieally, (D=40) gives considerable insight to the energy transfer 



wd ba^Lance process. First, lx mathematically demonstrates that for the 
system to yield the required heat split between the first and second pass 
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streams, the LHS must be less than unity. Then depending on how great this 
deviation is from xinity, the length of the channel is varied, changing the 
axial power generation gradient, so that the heat flux caused by the tempera= 
ture differential between the two streams res\ilts in the desired system per- 
formance,*. VBLth reasonable judgment the constant parameters appearing in 

can be evalxiated and parametric studies performed to make a prelimi- 
nary determination of the optimum dimensions for the system characteristics 
without the necessity of going into the fine details of the complete coupled 
nuclear- thermodynamic-heat transfer calculations, 

D«6 Difference Equation Representation of the Energy Balance Equations 

The variation of the coefficients in equations (D-22) and (D-23) makes 
the Integration of these equations impractical if a detailed study is made 
on the energy balance of the system. Consequently, a set of difference 
equations are necessary to their evaluation, these equations are formulated 
in a manner consistent with the nuclear analysis of Appendix A, 



The difference equation analog of Figure D,1 is shown in Figure D,2, 
Using tMs figure as a gxdde, the derivation of the difference equations 
becomes more meaningful. 




Figure D,2 
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Figure D*2 again shows the case for first p&ss flow in the region out=. 
side the fuel tube and second pass flow inside the fuel tube. 

Equations (D-22) and (D=23) are integrated in terns of forward differ® 
ences. For the second pass flow, the index steps down rather than up since 
the flow is opposite to the direction of positive length. 

Letting subscript j represent one axial subdivision of the fuel tube 
and j+1 the region immediately above it, equation (D=22) for the first pass 
flow is written as 



Ihe method of integration in (l>=4l ) and (l>=42) is not. strictly that of 
forward differences. 'Die charaeteriaation of properties for each of the 
regions is based ©n their average value, Ihus, the assumption is tacitly 
aade that property variation over each of the axial regions is linear. 

Ihis method of integration more realistically expresses the variation 
of properties, !Qi© value for each sub=region then represents the properties 
that are found when half the total power from the fuel and counterflowing 
coolant have been added as the coolant passes through the region. 

However, this type of integration scheme leads to a trial®and®error 
method of solution, as is apparent in both (D=41 ) and (D=42), Ihe temper® 
ature of the coolant, if it isn't in the two®phase region, is a strong mea® 
sure of the total energy U, In (D=4l ) one sees that ^ j+j is defined in 




(D-41) 



^ j+1 (T2, j+1“Ti, j+1 )3l,zj+i-H4cej(T2, j“Ti, j)Azj^ 



and for the second pass flow (D=23) gives 




tanis of and T 2 ^j+'^, while in (D=>42) is expressed as a function 

of T 2 J and Ti^j, In both cases, the temperatures with the same axial index 
as the total energy's index are unknown. 

D.7 Pressure Drop Due to Friction 

Bie last term on the RHS of (D=3) represents the change in force on 
the coolant stream due to friction. Using the definition of the friction 
factor Cp in (C=^0), the pressure gradient due to friction can be defined. 

In the usual description of the frictional pressure gradient, when the 
Fanning JW.ction Factor is used, the pressure drop is written as 

= 2 Gp (l/Dq) (ysF/g) (ru^3) 

where the quantity (L/Dq) is interpreted to mean the number of equivalent 
hydraulic diameters through which the fluid flows. The gradient then is 

For the situation in which two=phase flow may exist, the general de= 
seription of (D=44) is written for either one= or two=phase flow as 

h L3 

where the momentum flux MF is defined by (D=14) and (D=20), 

D.8 Ifumerleal Representation of the Force Balance Equation 

Hie differential relationship of the force balance equation of the 
coolant stream is given by (D=>3)» Ibe representation subsequently used in 
this section is identical with that of Section D,6, In Figure D.2, the quan- 
tlty pressure g can be substituted for total energy 0, 

Using the results of the preceding section, the ft>ietional gradient 
can be written in terms of the momentm flux. Putting this into (D=3) and 
writing in a difference notation, the pressure at position j+1 for the first 
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pass coola.n't becoiQds 




(D-46) 



(D=*46) i.Xlus’tra.'tds the same principle of integration that was used in 
(D=41) and (D=42). “Hie pr-oparties in any region are defined at the "mi.d= 
point" of that regiono Tb complete the details, the second pass flow pres= 
sure at position j is simply 



Bie coupling between the first and second pass flow is throxigh the 
variation of the momentum flux» This coupling is directly caused by changes 
in the thermodynamic energy state, i«e<., specific volume, quality and void 
fraction, as they are influenced by the heat transferred between the two 
coolant streams, Ih© coupling is therefore not as direct as in (D=^1 ) and 
(lMf2), where the total energy of the system was considered. However, (D=46) 
and (D=47) again point up the fact that with this integration scheme, a trial= 
and-error method of solution is necessary, 

D,9 Solution of the Energy Balanee^and Force Balance Equations 

The method of solving the coupled set of heat balance and pressure drop 
equations initially assumes the temperature of the two counterflowing cooling 
streams is known from the previous iteraticn. Under this condition, the prob= 
lem revolves into one of two-way interpolation on enthalpy and pressure, in 
which the counterflow effect has been completely uncoupled. 

Letting be the total heat added to the coolant stream (due to both 




(D-^7) 
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power production in the fuel tube and the temperature differential between 
the streams), the set of equations defining the enthalpy and pressure at 
position j+1 for the first pass coolant is simply 



Defining error terms associated for both enthalpy and pressure, (D=48) and 
(D=49) can also be written as 



When the correct combination of (Hi^j+i, have been selected, the 

two error terms are zero. 

Several methods were tried to find the "best" method of solving (D=>50) 
and (D=5l)o These included, among others, linear interpolation ard para- 
bolic interpolation. However, none of these methods proved satisfactory. 

The method finally determined as yielding the fastest method of solution 
involved the direct calculation of ejj and ep. If eg and ep did not fall 
within specified convergence limits, a new iteration was started. For this 
and any subsequent iterations, the new trial enthalpy was set equal 

to the sum of th® previous value of axd the calculated error term eg. 

The new trial presstare value was found in the same manner. It was found 
that under most eireumstanees, this two-way interpolation procedxire would 
converge to limits of 0,01 (a relative figure based for enthalpy on jsg/Qtp 
end for pressure on ®p/|p1,j+1 “ Pl,j| ) within three iterations. 

The counterparts of (D-48), (D-ii9) and (D=50)» (D=51 ) were also written 
for the second pass flow side to define values at the point j. 



Hi j+1 + s Hi j + KE)-j j + Qt 



(D-48) 




eg = RHS (D-48) - LHS (D-48) 
ep = RHS (D-49) - LHS (D-49) 



(I>=50) 
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D.10 Calculational Procedure and Macroscopic Heat Balance 

Ihe method solving the property variation between the sub=.regions has 
been described in the preceding sectionse As pointed out, the sequence of 
calculations used as a starting point the results of the preceding iteration. 
Prior to the first radial sweep across the core, the temperature of the 
coolant is assumed to be zero. For any sxibsequent iterations during the 
first radial sweep the temperat\jre differential across the fuel tube is set- 
to zero, uncoupling the heat exchanger effect. This approximation was neces» 
sary to avoid extrapolating the calculated enthalpy values of the second pass 
coolant out of the steam table data cards. Before this feature was incorpor- 
ated into the routine, the first time through the procedure both the enthalpy 
values of the coolant and the least- square-fitted coefficients defining the 
thermal conductivity and dynamic viscosity of the coolant were extended be- 
yond their range of applicability ajsd, in certain situations, resulted in 
negative enthalpy, conductivity, ©r viscosity values. After the first radial 
sweep has been completed and the first iteration power distribution as deter- 
mined by the nuclear properties has been calculated, the heat exchanger effect 
with a finite temperature differential between the two counterflowing coolant 
streams is included in the ealcilaticns. 

The calculation first starts by assuming that the thermal resistance 
between -the cladding wall and coolant is zero (infinite heat transfer coef- 
ficients) for both the first and second pass flow. Then, the calculation 
starts with a cell in radial region 1 , first pass side and marches up the 

cell subdivisions to the upper mixing plenum. The procedure is repeated on 

$ 

th^ first pass side for all the radial core regions. The bulk mixed enthalpy 
of the first pass flow is calculated, ^ch in turn fixes the second pass 
total flow rate. The calculation then marches back down the core on the 
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second pass side to the point of second pass outlet and across the core for 
all the radial regions. 

In determining whether the final thermodynamic profile of the coolant 
has been achieved within the core for the given nuclear power distribution, 
the total energy gained by both coolant streams is not calculated. Instead 
the method of testing is a little more indirect. In the testing process 
the fraction of heat that flows to the coolant stream outside the fuel tube 
is calculated, based upon the heat transfer coefficients (or thermal resist- 
ances) of the just completed iteration, Ihese values are then checked point 
vise for all the core subdivisions, both radial and axial, against the heat 
flow fraction determined from the previous iteration. If agreement is not 
achieved, the problem is reiterated, using the new value of fl,j or ^2, j* 
depending on whether the flow enters fVom the outside or inside the fuel 
tube on the first pass. This process is repeated until the relative abso- 
lute magnitude of the difference between two successive iterations for all 
points in the core meets the desired convergence criterion. The value of 
I the coolant state is then reflected in the testing procedure throxigh its 
I influence on the heat transfer coefficient between the cladding wall and 
' the coolant. 
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APPENDIX E 



RADIAL FLOW DISTRIBUTION ACROSS THE REACTOR 




When a fluid flows through a confined heated channel, pressure drop 
occurs due to friction. Additionally, when the fluid state undergoes 
large thermodynamic changes, the effect of momentxm change must be consid- 
ered, introduced through the variation in the density or specific volume 
of the coolant. 

An example of this effect can be demonstrated when one considers 
liquid water entering a heated channel. Assuming the inlet thermodynamic 
state and power generation rate in the channel are kept fixed, the outlet 
themodjmamic enthalpy will vary inversely as the flow rate through the 
channel. If the flow rate is sufficiently reduced, the exit condition 
of the coolant will be in the two-phase region. For this situation, the 
gradient of pressiire with flow rate becomes negative and an instability 
is present if more than one channel is connected in parallel between the 
inlet and exit plenums, 

Die pressure change along the channel can be approy±mately represented 



by 



AP 



w2((v2 = v^^) + Cp (V2 + Vi)L/De)/(A2g) 



(E-1) 



where 



W ■= mass flow rate 



A <= cress sectional flow area 



g <= gravitational constant 

V => specific volume 

Cp =• Fanning friction factor 
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Figure E.1 

L = channel length 

Dq = equivalent hydraulic diameter 

and subscripts 1 and 2 denote the inlet and exit conditions, respectively, 

A schematic representation of this effect is shown in Figure E.l. 

For an assumed pressure drop across the channel, as indicated by the 
horizontal dashed line connecting points B and NB, two flow rates through 
the channel are possible, either or respectively. 

Ihe flow rate at the point Wg is unstable, Fcr regions to the left 
of the vertical dashed line, the negative slope of ^ vs W produces this 
instability. If, with no other flow resistance in series with the channel, 
the flow at the point Wg may change due to either a statistical or external 
perturbation. If the flow rate should fall slightly, the pressure drop 
across the channel irxreases, decreasing the flow rate even more. If, on 
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the other hand, the flow rate shoiJ.d rise slightly, the pressure idll 
decrease and the flow rate through the channel will first accelerate 
down to the minimum point on the curve and then decelerate up to the 
point designated Wjjg, The condition of the flow rate falling or the 
pressure differential rising leads to burnout, since the exit temperature 
of the leaving vapor becomes extremely high, causing an attendant rise 
in the heat transfer surface wall temperature, 

E.2 Flow Control 

“nie means of avoiding a hydraulic instability for a forced convection 
boiling channel is to place an external flow resistance in series with 
the heated channel. This resistance has the characteristic that the pressure 
drop across it always has a positive slope for all through rates. “Ihus, with 
the resistance in series, the pressure drop ciirve of Figure E,1 would be 
changed to that shown in Figure E.2, 



Pressure 

Drop 

Ap 



PRESSORE DROP THROUGH A HEATED CHANNEL VS FIXM RATE VIITH 
AN EXTERNAL FLOW RESISTANCE IN SERIES WITH THE CHANNEL 

Figure E.2 
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For this case, the pressure drop vs flow rate is positive over all 
expected flow rates through the chatuiel for a given channel p>ower. Thus, 
the instability is removed with the resistance in series. 

The treatment subsequently is to consider the use of nozzles at each 
of the channel entrances to provide a stable flow pattern across the 
reactor. All the nozzles are assumed to have the same throat diameter, 

Ihis has the disadvantage that for relatively hot channels additional 
flow is not received to decrease the exit quality or temperature, Ihe 
utilization of variable throat diameters to regulate the final exit 
conditions is an area for further investigation, 

"nie nozzles that are used cause the system overall to exhibit a 
stable flow pattern. With a non= uniform power distribution radially 
across the core, sufficient pressure drop across the nozzles must be pro- 
vided to ensure that the momentum changes of the coolant do not cause 
a negative slope for the quantity d^/dW, 

E,3 Mathematical Formi0.ation of the Pressure Drop Across the Nozzles 
In the description of the model used to analytically predict the 
pressure drop through the nozzles, the following assvcaptions are mades 

1) Flow through the nozzle can be considered homogeneous 
even if in fact it results in a saturated discharge, 

2) The nozzle is of the converging type. The section beyond 
the throat can be considered as a sudden expansion and 

be described using non=eompressible flow theory to roughly 
predict the heat loss associated with this expansion, 

3) The treatment of the flow of the relatively hot water through 
the first pass nozzles can be considered to be described by 
non=compressible flow theory down to the saturation pressure. 
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If the pressure drop associated with the necessary flow 
rate takes the pressure below the saturation pressure > the 
flow is then described using homogeneous compressible flow 
theoryo 

Starting with a pressure p^ and a temperature Tq and liquid specific 
volume VjPq (corresponding to the saturation temperature T 0 ), the decrease 
in pressure is described by 

4p = Vi^/(2gVfe) (E.2) 

Bib velocity of the coolant in the plenum is considered neglibible* 

Bie velocity at the throat is found by 

Vi = Vfg W/A^ (E»3) 

where W is the mass flow rate through the nozzle and is the cross 
sectional area for flow at the throats Putting this relation into (E»»2) 
yields 

AP = Vfe g At 2) (E.4) 

Bie preliminary estimated pressure at the throat is then equal to 

Pt = Pe “ AP 

If the value of p^ determined from (E=5) is greater than the 
saturation pressure corresponding to the temperature T^, the analysis 
skips to the calculation of the pressure loss resulting from the sudden 
expansion beyond the nozzle <. For this case, the enthalpy of the coolant 
at the throat is assumed to be the same as that in the preceding plenum. 

However, if the value of p^ in (E=5) is found to lie below the satur= 
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tion pressure corresponding to Tg, the analysis then dictates that the 
two=phase condition be considered. For this case, the velocity corresponding 
to a pressure drop down to the saturation pressure is calculated, 

''sJ = 2 g Vf (p, - (E-6) 

From this point, the calculation proceeds assuming two=phase 
homogeneous flow. The calculation assumes that ideally the expansion 
is isentropiCo Thus, the reference entropy value is that of saturated 
liquid S£>g, or if for second pass flow the entropy of saturated vapor 
SgQ, at a tempera txire A trial pressure value £ is assumed, below 

the saturation pressure, and the quality of the mixture is calculated. 

X = (sfe = sf)/s^g (E-7) 

(The discussion is based on first pass entrance. For second pass 
entrance, the only change is to replace the subscript f with the 
subscript £. ) The enthalpy at the point of ideal expansion Hg is given 
by 

H = H,- + X H-.„ (E“S) 

si ig 

A velocity terra V 2 is then defined such that 

V 2 ^ = 2 g J e - Hg) (E=9) 

where J is a conversion factor and e is the efficiency of the nozzle* 

(It should be noted that the nozzle efficiency for both the second and 
first pass flow Is the same*) Including the velocity term from (E®6), 
a new total velocity term ^ is found by summing with (E«=9)® 

v2 = + v/ (E-W) 
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The conversion of thermodynaadc to kinetic energy is represented 
2 

by the term V2 . Ifiider this condition, the final enthalpy of the flow 
H including the effect of a non»ideal expansion is represented by 

H = = e (Hfg = Hg) (E-11) 

and a two=»phase quality 

X = (H = Hf)/Hfg (E-12) 

The specific volume of the homogeneous flowing mixtvire is defined by 



V = Vf + X Vfg 



(E-13) 



Itader the conditions stated, the calculated value of mass flow 
rate through the throat is given by 




(E-14) 



If does not agree with the actual flow rate W^, the assumed pressure 
to which the expansion takes place is varied until convergence within 
specified limits is obtained. 

The expansion following the converging nozzle section is predicted 
using a pseudo non'=compressible flow theory. The mass flux through the 
throat is defined by 



Gt = Wt/At 



(E-15) 



whereas in the chaimel the mass flux is given by 



Gc = Wt/A^ 



(E- 16 ) 
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where is the channel cross sectional flow area. 

At the throat before the sudden expansion takes place due to the 
increased flow area of the channel, the momentum term in the force balance 
equation is given by 

Mt = V Gt^/g (E..17) 

and the kinetic energy terra by 

Et = G^^/(2 g J) (E=18) 

The total energy entering the region of sudden expansion is H 
plus E.^, while the total "force" is p plus Using non-corapressible 

flow theory, the final pressure p^ and enthalpy Ej after the sudden 
expansion are found from a solution of the set of equations: 

H3 = H + Et = (Vf3^(I = “©^3)^ + 

P 3 = p + Mg <= G^^(v^ 3 ^ (1 = “ 0 ( 3 ) + 

Vg3 + (2,0 =• (At/A^)^)Mt 

The last terra on the RHS of (E=20) accounts for the pressure loss associa- 
ted with the sudden expansion, 

E,4 Mathematical Formulation of the Pressure Drop at Channel E x, t 

The analytical method used to describe the expansion process at the 
point when the flow suddenly starts into the plenum is the same as that 
previously described for the phenomenon after passage through the control 
nozzle. For this case, the fluid is assumed to be decelerated ' . zero 
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velocity, that is, to assume that the area/channel is infinite in the 
plenum o 



ttider this assumption, equation (E=19) and (E=>20) reduce to 



H3 - H + 



(B-21) 



P3 




(E-22) 



and they are solved by trial=and=error according to the methods of 
Appendix 6, 

E.5 Numerical I^ogramming Techniques 



The first pass channels all start from a common plenum and exhaust 
to a common plenum. Under this arrangement, the pressure drop for all 
the channels must be same, on the average, since they are all connected 
in parallel. The same is true for the second pass channels. 

Starting with the plenum pressure and the area ratios of the throat 
to channel dimensions, the maximum value of (E-10) is calculated. 

Since the flow is compressible, a plot cf vs Ap, the pressure drop 
across the nozzle, is calculated. The results of such a calculation are 
schematically shown in Figure E,3» 

2 

Because the flow is compressible, the value of or goes through 
a maximum. For a given plenum pressure pg, the maximum flow rate through 
a channel is calculated, before the actual pressure drop across the 
channel or the flow rate through the different channels is varied to achieve 
equal pressure drop. 
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MASS FLOV; RATE (COMPRESSIBLE) THROUGH A NOZZLE AS A 
FUNCnON OF PRESSURE DROP 
Figure E^3 



To determine the point of zero slope, the quantity is considered 
to be a function of ^p« Thus, 

w/ = f( Ap) (E-23) 

Numerically, some particular value of i^p is designated pj^ and the values 
Pk+1 Pk=l defined which are an amount Sp above and below the 
pressure drop pj^. Corresponding to each of these assumed pressure drops, 
the flow rate term W^,)^ is determined. 

The derivative of with <4p at the point pj^ is defined to be 

= <“flc+l^ ■ »t.k-l^V(2Sp) (B-24) 
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whi®h is the central difference approximation made in Appendix A, 
Differentiation with respect to ^p is denoted by primeso Ihe second 
derivative ©f is then 

* Wt.k-l^ - 2«t,k^)/(Sp^) (E-25) 

Using Newton's rule for interpolations the value of^p at which 
the slops is zero is given by 

Ap - Pk “ (E=26) 

To ascertain that value of ^p at which the slope is zero is in fact a 
2 

maximiaii for Wj. , the curvature of the curve must be concave downward, 

2 " 

ioe®, the value of must be negative. The programming technique 

employed has been to start at the lower values of pressure in the data 

steam table deek and to successively increase the pressure until the 

curvature is concave downward. As soon as the pressure drop has been 

decreased to this region, (E-26) is applied until the maximum is attained. 

If the flow, which is assiMed to go through the nozzle, is not choked, 

the pressure drop through the nozzle corresponding to this flow is determined. 

This type of calculation is based on that portion of the curve of Figure 

E»3 which lies between the origin and the point of zero slope, Newton's 

rule is again applied, 

2 

If is the square of the flow rate that has been set for the 
2 

channel and is the flow rate squared through the nozzle corresponding 
to some pressure drop the equation below is successively applied until 
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Ap = Pk = (Wt,/ == 



(E=27) 



For the detarmination of the distribution of flow across the core 
channels, as a function of the radial power distribution, the initial 
assmpticn is made that the flow through each of the channels is identical. 
Based on this assumption, the power distribution, determined from nuclear 
calculations is made. On the second and subsequent iterations, the pressure 
drop across the channels may vary due to this uneven heating. 

On the first sweep across the cere, an average pressure drop is 
calculated, Ihen the method ©f calculation is to start another sweep 
across the core, during which the flow through each of the channels is 
varied until the average pressure drop is achieved. When this second 
type of sweep has been ccmpleted, the flow through all the channels is 
summed and the calculated flow is cheeked against the specified flow. 

If the two do not agree, interpolation to a new average pressure drop 
is made using Newton's method. This type of calculation proceeds until 
the calculated and specified flow rates agree and 3 deld an equal (to 
within specified convergence limits) pressure drop across the first or 
second pass core coolant channels. When this condition has been achieved, 
a new nuclear calculation commences and a new power distribution is begun, 
which may introduce a new radial power distribution across the core and 
necessitate a repetition of the procedure just described. 
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APPENDIX F 



DIRECT CYCLE COOLANT ACTIVITY MODEL 

F. 1 Assumptions 

When water flows through the interior of a reactor and is exposed 
to fast neutron irradiation, it becomes radioactive, Ihis radioactivity is 
carried outside the reactor primary shielding by the coolant. In the direct 
cycle application using steam from the reactor in the turbomachinery, it 
is necessary to determine the activity level, which is introduced into the 
machinery space by the activated coolant, to estimate the secondary shield^ 
ing requirements , 

To make this estimation, the physics of the process must be consider- 
ed, Writing the flow parameters of the coolant inside the reactor in an 
Sulerian system of coordinates, the space and time-dependent equation 
descidbing this situation is 

^ (ni(x,t) ^(x,t)) = ^(x,t) 0(x,t)<Ji 

^ (F-1 ) 

- Xi ni(x,t)yO(x,t) - Vt |(nj^(x,t) ^(x,t) V(x,t)^ 

where p is the density of coolant atoms, ni is the fraction of isotope 
type i that is radioactive, ^ is a characteristic one-group neutron flux, 

(Ti is the cross section for activation of the i^^ isotope, Xj_ is the 
radioactive decay constant, and V is the vector coolant velocity. The 
symbol x denotes spatial position and t time. 

A detailed solution of eqiration (F-1 ) requires laborious calculations, 
since it implied a knowledge of both spatial and time variation of the 
parameters. As an obvious simplification to this dilemna, the estimation 
of the time variation of the coolant activity will be made by assuming a 
lumped parameter model in which the spatial influence does not enter 
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directly in the calculations. 

To predict the level which will be attained with this model, it is 
assumed that the coolant is initially completely free of activity. The 
reactor then begins producing power at a constant rate. This rate is 
held constant and the coolant reaches a saturated level of activity after 
an infinite time has elapsed. 

F.2 Lumped Parameter Coolant Activity Concentration 

Let N(t) be the number of radioactive nuclei within the reactor at 
any time t. VB.th the lumped parameter approximation, it is assumed that the 
production rate of radioactive nuclei within the reactor is independent of 
position. Let P be the constant rate at which this production is occur- 
ring, Then, the general time-dependent equation for the change of N(t) 
with time is 



Equation (F-2) can be integrated directly for the condition that N(t) 
is zero for all time prior to power production and that at time t = 0, 
the production term in (F-2) undergoes a step change to a constant value 
for all subsequent time. This gives 



Letting Tj^ be the time it takes the coolant to transit the reactor 
and M<; the mass of coolant within the reactor, both quantities representing 
their representative statistical averages, after the assumed start-up proce- 
dure, the number of radioactive atoms per unit coolant mass in the reactor 
after its first complete transit through the reactor becomes 



= p - XN(t) 



(F-2) 



N(t) = P X(1 - e’ 



(F-3) 




(F-4) 
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Following a specific mass of coolant around the coolant flow loop, the 
number of radioactive nuclei in this mass begins to decrease as soon as it 
leaves the reactor. Outside the reactor, the production term in (F-2) is 
zero. If T 3 is the time it takes this mass to make a complete cycle of the 
coolant flow loop, the number of radioactive nuclei per unit mass of coolant 
remaining after the first complete coolant pass is 

ll = ^ (f-5) 

But at the same time, the coolant is again subjected to a step change in the 
production rate and an additional number of new radioactive nuclei are pro- 
duced as predicted by (F-4), This phenomenon is qualitatively illustrated 
in Figure F. 1 . 

To determine the steady state concentration per unit mass of coolant 
either of two techniques can be employed, both methods yielding the same 
result. The first and most elegant mathematical method is to formulate a 
general time-dependent differential equation in terras of step functions and 

1 

solve for the steady state concentration by the methods of Laplace transforms. 

The second method, based on an understanding of the physics of the pro- 
cess, is to recognize that each time that the mass of coolant leaves the 
core an additional amount of activity is introduced into the mass, Ihis 
additional amount of activity is given by equation (F-5), except that the 
cycle time is now denoted by nTg. This increment is 

AN(^ . T s ) = ^ (1 . e- XTfi) g-XnTs (p.6) 

c ■*c 

Equation (F- 6 ) can be summed for an infinate number of cycles n in closed 
form to yield 



Pulsed Activity Source Terra 




VARIATION OF RADIOACTIVITY FOR A GIVEN MASS OF COOLANT VS TIKE 

Figure F,1 



NCtr.Ts) 1 
Me loo 



PX(1 - e-^^) 
Med - 



(F-7) 



F.3 Coolant Activity Production Rate 

The production rate P in (F-2) can be estiraated by homogenizing the 
reactor constituents and using a one-group model. Using the definition 
of Avogadro's nviraber, the number of coolant or fuel molec\iles can be 
determined. 
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Let 



V * reactor volujne 

gan V o ‘ s numbe r 
A = molecular weight 
M » mass within the reactor 
N - number of molecules vlthin the reactor 
^ - homogenized mass density 

Thenj the average molecular density of a particular isotope can be predicted 
bv 



N _ „ /? ) M 

V A Av 

The total number of molecules of this tyoe is predicted by 

M 'V M 

i-v 

The ratio of coolant*-tc*fual Tnolecules is then 



(F-5) 



(F-9) 



ik ~ % H 

Nf Mf Ar. 



(F-10) 



The rate a^ v;hich the coolant is being activated v:ill be proportional 
to its activation cross section CT^, v^bile the number of fissions taking 
place is proportional to the fission cross sectionO*'^. If the constant C 
denotes the fission rate to produce a specified reactor- power, the produc- 
tion rate P is determined. 



p -• c Fq si. i!’s. 

Mf Ac (ft 



(F-11) 



F«4 Decay Rate Outside the Reactor 

Let Mg be the total mass of coolant in the flow loop, which encompasses 
the reactor and turbomachinsry. Equation (F-?) gave the concentration of 
nd'oacttvc coo-lont thr reactor after an infinite number of 

kt6 



|j*y. 




passes through the reactor. The concentration an amount of time (Tg - Tj^) 
later Is the number of active atoms present after traversing the loop external 
to the reactor. Letting D represent the total number of decays that have 
taken place during the time Increment (Ts - Tr) In a mass of coolant (Ms - Mjj), 
the radioactive source level In the machinery space Is determined. 



^ ^ Pi, C , P- (, . X(Ts - Tr ), 

(Tg - Tr) Me (1 - e“ >^^ 3 ) 

F. 5 Estimation of Reactor Transit and Cycle Times 

To gain a representative description of the reactor transit time for 
the coolant, a mixing volume for the process can be determined. When con- 
sidering the removal of heat from a reactor, a coolant flow rate W Is speci- 
fied, The mass of coolant within the reactor can bo calculated fl*om the 
geometry and a knowledge of the coolant property profile within the reactor. 

When the mass has been determined, the reactor transit time for the 
coolant Is simply 



Tr = M<j / W (F- 13 ) 

A similar approach can be used for the determination of the total coolant 
cycle time Ts, when the total mass of coolant in the flow loop is given or 
calculated. This yields 



Ts = Ms / W (F-14) 

The combination of (F-13) (F-l4) show that, to estimate the radio- 

active source level D, the number of parameter permutations can be reduced 
by considering 

(Ts /Tfe) = (Ms /Mr) (F-15) 

With this relationship, (F-12) can be reduced to 
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** IN 





D 



(F-16) 



= ^ (1 - >) 

Tr (1 - e-A^S) ' 

and then studied parametrically for different values of Tj^ and the ratio 
of (Ts/Tr). 

F.6 Refinement of the Model 

Additional refinements can be introduced in the simplified model used, 
primarily in the area of estimating the spatial effects. A more exact analy- 
sis of the reactor transit and cycle time is the more obvious correction. 

Errors will be introduced in the production rate P in the reactor, if 
only volumetric considerations are used to define the "effective" mass of 
coolant or fuel present in (F-10). The contribution to the total activity 
that is caused by coolant traversal through a given section of the reactor 
is not only dependent on the local neutron flux spectrum and its correlation 
with the activation cross section but also on the time spent in that region. 
The local spatial variation is demonstrated by the general differential 
equation (F-1). The total coolant mass should thus be weighted not only by 
the local one-group flux magnitude but also with a flux spectrum correction 
factor. 

The activation of the different isotopes is also proportional to their 
natural abundance. If the quantity r^^ represents their natural abundance, 
the cross section for activation must be written as ri(J"i. 
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APPENDIX G 



LISTING OF THE PROGRAM CFR 

To shorten the amount of space necessary to list the program, the 
following deviation has been made from the actual manner in which the 
FORTRAN cards would appear when compiling the source check. The program 
is too long for one main program on the IBM 709O using the MIT system 
tape, so it had to be broken into a two-link chain job. To permit data 
transmission from one link of the program to the other and between sub- 
programs, most variables are stored in COMMON. This necessitates the 
appearance of the same 23 DIMENSION, 4 COMMON, and 77 EQUIVALENCE cards 
in each main program and subroutine. Rather than repeating these 10^ 
cards in each subprogram, they are listed completely only once below 
and then indicated in each subprogram by the 3 cards DIMENSION, COMMON, 
and EQUrVAIENCE. 

The main program and subroutine appearing in the first link of the 
chain job on tape B1 are: 

CHAIN (1, Bl) 

Main Program: CFRl 

Subroutines: START, DATIN, DATAl, DATA2, DATA3, 

dataU, dapr, begin, thermo 

The second link of the chain on tape B2 includes: 

CHAIN (2, B2) 

toin Program : CFR2 

Subroutines: THERMO, SSHTR, SSHTRl, SSHTR2, SSHTR3, 

SSHTRi^, CNOZ, CNOZl, CN0Z2, CN0Z3, PEXP, 
PXHTR, HTRAN, BURN, AIM, SIGMA, CONS, FLUX, 
EIVAL, CONV, CRIT, RING, RINGl, RING2, CELAX, 
CELL, AXIAL, ANPRAX 
?19 



Note tbat SUBROUTINE THERMO appears in both chain links 1 and 2. 
As another means of shortening space, SUBROUTINE THERMO is shown 
only in the listing for chain link 1. 



DIMENSION, COMMON ARP EQUIVALENCE Statements 

DIMENSION A(2512),AC1(7),AC2(t),AC 3(7^2),AC4(7,2),AC5(T,2),AC6(T,2 
1),AC7(7,2),AC8(7,2),AC9(7),AC10(7),AMAT(5,6),AST0(773),BETA(101),B 
2MAT( 6, 6, 5 ) ^ BUCKCH( 6, 7, 2 ) ,BUCK2( 7, 2 ) , BUCK2A( 7, 2 ) , BUCK2C( 7, 2 ) , BUCK2R 
3(7, 2),C(5),CHI(7,2),D( 101), DELR(7),DEERA(7),DELRC(7),DELRR(7), BELT 
U( 3, 21 ) , DELTA( lOl) , DEN( 6, 7, 2 ), DIF( 7, 2 ) , DIFA( 7, 2 ), DIFC( 7, 2 ) , DIFCH( 6, 

57. 2 ) , DIFR( 7, 2 )DP( 7 ) , DPHI( 101, 2 ) , DPH0( 7, 2 ) , DUMMy( 6, 6 ) , DZ( 7 ) , ENTH( 6 

6.7.2) ,FAREA(2),FL(101),FLCW(6,2),FLP(101),FRAC(6,7),ERACT(6,6),G(1 
701),GP(7),G1(101),G1P(7),HDIAM(2),HEAT(i6i 1),HF(123),HG(123),HSUP( 
8lh,29),HT(2),HTR(6,7,2),L(l69),LB(7),LBA(7),LBC(7),LBR(7),LBS(7),L 
9BSA(7),LBSC(7),IBSR(7),NN(5),KP0(11),PHI(101,2),P0WER(6,7) 

DIMENSION PCWP( 101, 2 ), PCWR( 7, 2) , PRES( 6, 7, 2) , PSAT( 123 ), PSU?( 29) , B( 1 
101 ) , RA ( 101 ) , RAREA( 7 ) , RC( lOl) , RHTR( 2 ) , RI ( 101 ) , RIA( 101 ) , RIC ( 101 ) , RIN 
2T( 7, 3 ) , RIRUoI ) , RR( 101 ) , SIGA( 7, 2 ) , SIGAA ( 7, 2 ) , SIGAC( 7, 2 ) , SIGAR( 7, 2 ) 
3, SIGAW( 2 ) , SIGPT( 7 ) , SIGPTA( 7 ) , SIGPTC( 7 ) , SIGPTR( 7 ) , SIGT( 7, 2 ) , SIGTRW( 
U2 ) , SMU( 13 ) , SOP ( 7 ) , SOPA ( 7 ) , S0PC( 7 ) , SOPPh ) , S0PR( 7 ) , S0U( 101 ) , S0UA( 10 
51),S0UC(101),S0UP(101),S0UR(101),T(2),TA(2),TC(2),TEMC(6,7,2),TEMW 
6(6,7,2),TERM(6,6,h),TEMX(6,7),TR(2),TRAHS(7,l,2),TRANSA(7, 1,2), TRA 
7HSC(7, 1,2),TRANSR(7, 1,2),TSAT(123 ),TSUP(i 4),U(9,21),VF(123),VG(123 
8),VSUP(l4,29),VU(7,2),VUA(7,2),VUCa,2),VUR(7,2),VUSIG(7,2),VUSIGA 
9( 7, 2 ) , VUSIGC( 7, 2 ) , VUSIGR( 7, 2 ) , VUSIG ( 2 ) , VUW( 2 ) , ZST0( 1276 ) 

DIMENSION DNB(6,7,2),SF(123),SG(123),DC0R1(7,2),DC0R2(7,2),DCQR3(7 

1.2) 

DIMENSION AP0HP(6,101),AP0WR(6,7),DISTL(21),TFBAR(6,7) 

COMMON A, AST0,HEAT,ITA1, ITA0,ITA1,ITA2, ITA3,ITA4,L,NDS, NOG, SUMl, SU 
1M2, SUM3 , SUM4 , SUM5 , SUM6, SUM7, SUM8, ZSTO 
CCMION SF, SG,DC0R1,DC0R2,DC0R3,EN0Z,RUSQ, DNBMAX 
CCMION APCWP,AP0WR,DISTL,TFBAR 

EQUIVALENCE U( 1),VUSIG), (a( 15),VU), (A(22),TRANS), (A(36),SIGA), (a( 
150),DIF),(A(64),SIGPT),(A(71),T),(A(73),EIGEN2),(a(74),R),(a(175), 
2RI),(a(276),DELR),(a(283),PIM),(a(284),P),(A(285),BUCK2),(a(299),S 
30u),(a(4oo),sop),(a(4o7),eigeni),(a(4o8),eigen),(a(4o9),ci),(a(4io 

4) ,C2),(a(4ii),C3},(A(412),C4),(a(413),C5),(A(4i4),c6),(a(4i5),C7), 
5(a(4i6),C8),(a(417),C9),(a(4i8),C10),(a(419),C11),(a(420),C12),(A( 
6421),ERR),(a(422),SUM),(A(423),FAC),(A(424),FAC1),(a(425),FAC2),(A 
7(426), FAC3),(a(427),FAC4),(a(428), coni), (a(429),CQN2),(A(430),C0N3 
8),(a(431),CON4),(a(432),CON5),(a(433),CON6),(a(434),gam),(a(435),G 
9AM1),(a(436), ALPHA), (a(437),A1),(a(438),B1),(a(439),w),(a(44o),W1) 

equivalence (a(44i),W2),(a(442),PSI1),(A(443),PSI2),(a(444),DET),( 
1A( 445 ) , CHI ) , U( ^59 L VUSIGC ) , ( A( 473 ) , VUC ) , ( A( 480 ) , TRANSC ) , ( A( 494 ) , S 
2IGAC),(a(508),DIFC),(a(522),SIGPTC),(A(529),TC),(a(532),RC),(a( 633 
3),RIC), (Ah34),DELRC), (A(743),BUCK2C), (a(757),SOUC), (A(858),S0PC), 
4( A( 865 ) , VUSIGA) , ( A( 879 L VUA) , ( A( 886 ) , TRANSA ) , ( A( 900) , SIGAA ) , ( A( 914 

5) ,DIFA),(A(928),SIGPTA),(A(935),TA),(A(938),RA),(A(1039),RIA),(A(1 

6i4o),delra),(a(ii49),buck2a),(a( 1163 ), soua),(a( 1264), sopa),(a( 127) 

7), VUSIGR), (a( 1285 ),VUR), (A( 1292), TRANSR), (A( 1306), SIGAR), (A( 1320 ), 
8difr),(a( 1334 ), sigptr),U( 1341 ), tr),(a(i344),rr),(a(i445),rir),(a( 



220 



DIME!NSI0N, COMMON AND EQUIVALENCE (Continued) 



915^6), DELRR), (A( 1555 ),HJCK2R), (A( 1569), SCfUR), (A( 1670), SOPR) 
EQUIVALENCE ( A( 1? 15 ) , VUSIGW ) /( A( 1717 ) , VUV/ ) , ( A( 1719 ) , TRARSW ) , ( A( 172 

10) , SIGAW ), (a( 1722 ), SIGTffi'J ), (A( I72U ), ESPl) , U( 1725 ), ESP2 ), (A( 1726 ) , 
2ESP3), (A( 1727 ), THETA), (a(1728),PW1), (a(1729),FL0), (a( 1730),RAT1), 

3(A( 1731 ), TCIN), (a( 1732 ), TCFU), Ca( 1733), TCOU) , (A( 173^^), HINT), (A( 173 
U5 ), TFmX ), (a( 1736 ) ,PPUMP ), (A( 1737 ) , HPUMP ), (a( 1738 ) , DCDEN) ; (a( 1739) 

5,REDEN), (A( 171^0 ), HINT), (A( 176i),HIN), (a( 1762),RECIRC), (a(1763),HTO 
6p), (a( 176U),PT0P), (a( 1765),H0UT), (a( 1766),P0UT), (A(1767),HDIAM), (a 
7( 1769),FAREA), (a( 1771),CAREA), (A( 1772),RAKEA), (a( 1779), DZ), (a( I 786 
8 ). POWER ), (a( 1828 ), TEMC ), (A( 1912 ), TEMW ), (A( 1996 ) , TFMX ), (a ( 2038 ), ENT 
9H),(a(2122), flow), (A(213i^), DEN), U(2218),FRAC),U(226 o),HTR) 
EQUIVALENCE (a(234U),PRES1, (A(2428),DNB), (a(2512),WATE) 

EQUIVALENCE (ASTO(1),AC1),UsTO(8),AC2),UsTO(15),AC3),(ASTO(29),A 
1C4 ) , ( AST0( 43 ) , AC5 ) , ( ASTO( 57 ) , AC6 ) /( ASTO^l ) , AC7 ) , UsTO( 85 ) . ACB ) , U 
2ST0(99),AC9),(AST0(106),AC10),(AST0(113),BETA,G),(AST0(214),D),(AS 
3T0( 315), DELTA, G1 ) , ( ASTO( 4l6 ) , DP ) , ( ASTO( 423 ) , FL) , ( ASTO( 524 ) , FLP ) , ( A 
4ST0( 625 ) , GP ) , ( ASTO( 632 ) , GIP ) , ( ASTO( 639 ) , SIGT) , ( ASTO( 65 3 ) , SMU) , ( AST 

50(666), sopp), (asto( 673 ), soup) 

EQUIVALENCE (HEAT( 1),TSAT), (HEAT( 124),PSAT), (HEAT(247),VF), (HEAT(3 
170),VG),(HEAT(493),HF),(HEAT(6i6),HG),(HEAT(739),TSUP),(HEAT(753), 
2PSUP), (HEAT(782),VSUP), (HEAT(1188),HSUP), (HEAT( 1594 ), P2 ), (HEAT( 159 
35 ),H2), (HEAT( 1596),T2), (HEATC 1597}, TSATU2), (HEATU598), VL2), (HEAT( 
415 99 ), W2 ),( HEAT( 1600 ), HL2 ),( HEAT ( 1601 ), F/2 ),( EEAT( 1602 ), CL2 ),( HEA 
5T( 1603 ) , CV2 ) , ( HEAT( l604 ) , T:L2 ) , ( HEAT( 1605 ) , TCV2 ) , ( HEAT( 1606 ) , VISL2 
6 ) , ( HEAT( 1607 ) , VISV2 ) , ( HEAT( 1608 ) , RBL2 ) , ( HEAT( I609 ) , SURT2) , ( HEAT( 16 
710),QUAL2), (HEAT(i611),V0ID2) 

EQUIVALENCE (l( 1),N1), (L(2),N2), (L( 3),N3), (L(4),N7), (L( 5),N), (L(6) 

1, NM1), (L(7),NM2), (L(8),MM1), (L(9 ),ICT), (L(10),TCT1), (L(11),ICT2), ( 
2L(12),ICT3),(L(13),ILK),(L(i4),m),(l(15),LB),(L(22),HB),(L(23),LBS 
3),(L(30),MICT),(L(31),MICT2),(L(32),N4),(l(33),N5),(L(38),NCELL),( 
4l(39),HCE),Cl(4i),MCE),(L(47),MCELL),(L(48),LBC),(L(55),HBC),(L(56 
5),LBSC),(L(71),KAXIAL),(L(72),NAXI)/(L(74),MAXI),(L(8o),MAXIAL),(L 
6(8i),LEA),(L(88),NBA),(L{89',LBSA),(L(104),NRING),(L(105),NRI),(L( 
7107 ), MRI),(l( 113 ),MRING),(L( 114), lbr),(l( 121 ), n8r),(l( 122 ), lbsr),( 
8l( 133),ITERM),(L(134),IPR),(L(135),IPU),(L(136),ITER),(L(137),N34) 
9,(L(l38),N35),(L(l39),I£l),(L(l40),IB2i,(L(l4l),LB3),(L(l42),LB5) 

EQUIVALENCE ( L( l43 ) , NlOO) , ( L( i 44 ) , NlOl ) , ( L( 145 ) , 1^0, II ) , ( L( l46 ) , M8 

11) ,(L(i47),NN),(L(152),HPj),(L(i63),NAA),(L(i64),NCR),(L(i65),NSKP 
2 ), (l(i 66 ),modeh), (L( i67),rTEST), (l( i683,maxia), (L( 169),MRIN) 

EQUr/ALENCE (ZST0 (i),Ai4t), (ZST 0(31),BMAT), (ZST0(3H),BUCKCH), (ZST 
10(295 ),C),(ZST0( 300), DELT,H1),(ZST0( 301),P1),(ZSTO(302),EHK1),(ZST 
20( 303 ) , PKl ) , ( ZSTO( 304 ) , ENK2 ) , ( ZSTO( 305 ) . FK2 ) , ( ZSTO( 306 ) , Q1 ) , ( ZSTO( 
3307),Q2), (ZST0(308),PCtnE!E2), (ZST0(309),FRACZ),(ZST0(310),DTC22), (Z 
4ST0( 311 ) , D2 ) , ( ZSTO( 312), PISIGN ) , ( ZSTO( 313 ) , GSQP ) , ( ZSTO( 3l4 ) , GSQE) , 
5 ( ZSTO( 3 15 ) , H3 ) , ( ZSTO( 316 ) , P3 ) , ( ZSTO( 3 17 ) , DZl ) , ( ZSTO( 3 18 ) , DZ2 ) , ( ZST 
60( 3 19 ) , TW2 ) , ( ZSTO( 320 ) , RE2 ) , ( ZSTO( 32 1 ) , R1 ) , ( ZSTO( 322 ) , HD ) , ( ZSTO( 32 
73 ) , GHD ) , ( ZSTO( 324 ) , FLOG ) , ( ZSTO( 325 ) , AHl ) , ( ZSTO( 326 ) , API ) , ( ZSTO( 327 
8),ERRH1),(ZST0(328),ERRH2),(ZST0( 329),ERRP1), (ZST0(330),ERRP2), (ZS 
9T0(331),XXX),(ZST0(332),XINT),(ZST0( 333 ), VINT), (ZST0(334),TCL1) 
EQUIVALENCE ( ZSTO( 335), TCVl ) , ( ZSTO( 336 ) , VISVl ) , ( ZSTO( 337 ) , El ) , ( ZST 
10( 338 ) , E2 ) , ( ZSTO( 339 ) , E3 ), ( ZSTO( 340 ) , E4 ) , ( ZSTO( 34l ) , VI ) , ( ZSTO( 342 ) 

2, V2 ) , ( ZSTO( 343 ) , V3 ) , ( ZSTO( 344 ) , V4 ) , ( ZSTO( 345 ) , PS ) , ( ZSTO( 346 ) , TRED ) 



F 



DIMENSION, COMMON AM) EQUIVALENCE (Continued) 



3 , ( ZSTO( ) , TRH)2 ) , ( ZSTO( 3*^8 ) , TRED3 ) , ( ZSTO( 3^+9 ) > TE ) , ( ZSTO( 350 ) , ENT 

If ) , ( ZST0( 3 5 i ) , VOLWI ) , ( ZSTO( 36^ ) , DIFCfi } ., ( ZST0( 44 1 ) , DPHI , PCWi> ) ; ( ZST6( 
5649 ), DPHO, PCWR ),( ZSTO( 663 ), DUMMY ),( ZSTO( 699 ) J FRACT ),( ZSTO( 735 ), HT ) 
6, ( ZSTO( 73 7 ) ^ PHI ) , f ZSTO( 939 ) ^ HHTR ) ^ ( ZSTO( 941 ) ;, TERM ) , ( ZSTO( 108 5 ) , U ) , 
7( ZSTO( 1274 ) ;, TWOG J) , ( ZSTO( 1275 ) , WOG ) ;, ( ZST0( 1276 ) , FULOG ) , ( ZSTO( 3 52 ) 
8, ARAT) , ( ZSTO( 353 ) > PKB2 ) 

CHAIN LINK (1, Bl) 

* CHAIN(l,Bl) 

* LIST 

* FORTRAN 

* LABEL 

CCFRl - STEADY STATE NUCLEAR / PCX'/ER PRCGRAM 
DIMENSION 
COMMON 
EQUIVALENCE 

1 FORMAT (8OH 

1 ) 

2 FORMAT (FIO.4) 

3 READ 2.A1 
IF(Al)ll,ll,10 

10 CALL START 

11 READ INPUT TAPE ITAI, 1 
WRITE OUTPUT TAPE ITA0,1 
ITA3-0 

12 CALL DATIN 
IF(N100)13,13>3 

13 CALL DAPR 

14 CALL BEGIN 
C1=334722E-2 
TRANSWaCl^TRANSW 
DO 15J®1,N0G 

VUSIGW ( J )«=C1*VUSIGW( J ) 

SIGAW( j)sCl*SIGAW( j) 

15 SIGTRW(j)sCl*SIGTRW(j) 

WRITE OUTPUT TAPE ITAO^l 
IF(PCW1 )i6,16,19 

16 ITESIfel 
H2=HPUMP 
P2=PPUMP 

17 CALL THERMO 

Cl=lo 0/(62. 43*( QUA12^T/2+( 1. 0-QUAL2 )*VL2 ) ) 

DO 18K^1.2 
DO 18J=1,MAXIAL 
DO l8lel,MRI 

18 DEN(I^J,K)^C1 

19 ITER==0 

500 CALL CHAIN(2,E2) 

END 
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CHAHT lim - Continued 



* 

* 

* 



LIST 

FORTRAN 

LABEL 



SUBROUTINE START 
DIMENSION 
COMMON 
EQUIVALENCE 

SET A AND L MATRIOES = 0 
DO 11 = 1,2512 

1 a(i)=o.o 

DO 21 = 1,169 

2 L(l)=0 

DEFINE BTSSION SPECTRUM 

DO 31=1,7 

3 CHI(I,1)=1,0 

SET UP EXTRAPOLATION FACTOR, NUMBER OF GROUPS FOR DCWNSCATTERING, 
NUMBER OF GROUPS, NUMBER OF ITERATIONS FOR FLUX AND CRITICALITr 
SEARCHES AND PCWER DISTRIBUTION 
THETA=0.8 

4 N0G=2 
NDS=1 

5 ITERM=25 
L( 134 )=1 
L(i62)=5 

6 RUSQ=OoO 
A(1343)=1-0 

7 DO 81 = 1,3 
«X=30+-33*I 
L(J)=50 
J=J+1 

8 L(J)=15 

SET UP TAPE FuMBERS 

ITAI=INPUT TAPE I‘TAO=OUTPUT TAPE 

ITAI=4 

ITA0=2 



DO 91 = 65 , 131,33 
9 L(I)=1 

READ IN STEAM TABLES 

10 FORMAT (8F10.4) 

11 FORMAT (4F10,4) 

12 FORMAT (2F12.5) 

READ INPUT TAPE ITAI, 10 , (TSAT(I),PSAT(I),VF(I),VG(I),HF(i),HG(I),S 
1F(I),SG(I),I=1,123) 
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CHAIN LIMK (l,Bl ) - Continued. 



READ INPUT TAPE ITAI, 11, ((TSUP(i),PSUP( j),VSUP(l, j),HSUP(l, J), J»l, 
129 ),i=i,i4 

READ INPUT TAPE ITAI, 12,DNBMAX,EN0Z 



SUBROUTINE DATIN 

DIMENSION 

COMMON 

EQUIVALENCE 

N100»0 

1 CALL DATAl 
IF(N100)2,2,5 

2 CALL DATA2 
IF(N100)3,3,5 

3 CALL DATA3 
IF(N100)i^,|^,5 

U CALL DATAU 

IF(N100)500,500,5 

5 BEAD INPUT TAPE ITAI , 6 

6 FORMAT (IH) 

500 RETURN 

END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE DATAl 
DIMENSION 
CCMION 
EQUIVALENCE 

1 FORMAT (211,110,5112) 

2 FORMAT (2I1,I10,5E12.5) 

3 FORMAT (60H0 ERROR, ADDRESS FORMAT FOR FIXED POINT DATA CARD NU 
IMBER 13) 

U FORMAT (63HO ERROR, ADDRESS FORMAT FOR FLOATING POINT DATA DARD 
1 NUMBER 13) 

K=0 

31 K=K+1 

READ INPUT TAPE ITAI,1,NR,LC,NA, (NN(i),I=1,5) 

IF(NR)32,32,33 

32 WRITE OUTPUT TAPE ITA0,3,K 
N100=l 

GO TO 37 

33 IF(NR-5)3i^,3‘^,32 
IF(na)32,32,35 

35 NA=NA-1 

DO 361 = 1 , NR 
J=NA+1 

36 L(J)=NN(I) 



C 



500 RETURN 
END 



* 

* 

* 



LIST 

FORTRAN 

LABEL 
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CHAIN LIKK (l,Bl ) - Continued. 



37 IF(LC)31,31,38 

38 K=0 

39 K=K+1 

READ. INPUT TAPE ITAI,2,HR,LC,NA, (C(l),I=l. 5 ) 
IF (NR)40,l^0,lfl 

40 WRITE OUTPUT TAPE ITAO,U,K 
NlOC^l 

GO TO 45 

41 IF(NR-5)42,42,40 

42 IF(KA)4o, 40,43 

43 KA=KA-1 

DO 44I«1,HR 
J=NA+I 

44 A(J)=C(I) 

45 IF(LC)39,39,500 
500 RETURN 

END 



* 

* 

* 



C 

c 

c 



LIST 

FORTRAN 

LABEL 

SUBROUTINE DATA2 
DIMENSION 
COMMON 
EQUIVALENCE 

5 FORMAT (22H0 ERROR, ADDRESS L(I3,48h), 
lUST BE EQUAL TO SEVEN) 

6 FORMAT (22H0 ERROR, ADDRESS L(I3,65H), 
IMUST BE EQUAL TO OR GREATER THAN THREE) 

7 FORMAT (22H0 ERROR, ADDRESS L(I3,64h), 
1 MUST BE EQUAL TO OR GREATER THAN WO) 

8 FORMAT (22H0 ERROR, 

ILARGE) 

9 FORMAT (22H0 ERROR, 

IS TOO large) 

ERROR, 



10 FORMAT (22H0 
IE odd) 

11 FORMAT (22H0 ERROR, 
ION IS TOC LARGE) 

12 FORMAT (22H0 ERROR, 
ION IS TOO SMALL) 

13 FORMAT (22H0 ERROR, 
IS IS TOO LARGE) 

14 FORMAT (22H0 ERROR, 
UN ASCENDING ORDER) 

145 FORMAT (22H0 ERROR, 
IPECIFIED) 



ADDRESS L(I3,32H), 
ADDRESS L(I3,38h), 
ADDRESS L(I3,32H), 
ADDRESS L(I3,42H), 
ADDRESS L(I3,42H), 
ADDRESS L(I3,41H), 
ADDRESS L(I3,45H), 
ADDRESS L(I3,35H), 



FIXED POINT DATA CHECK 

47 IF(l(47)-7)48,49,48 

48 1=47 

WRITE OUTPUT TAPE ITA0,5,1 
N100=l 



NUMBER OF CELL REGIONS M 
NUMBER OF AXIAL REGIONS 
NUMBER OF RADIAL REGIONS 
NUMBER OF REGIONS IS TOO 
NUMBER OF SPACE POINTS 1 
INTERFACE NUMBERS MUST B 
NUMBER OF POINTS IN REGI 
number of points in REGI 
NUMBER OF CONTROL REGION 
CONTROL REGIONS MUST BE 
CRITICALITY OPTION NOT S 
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CHAIIT LIKK (l,Bl) - Continued. 
k9 IF(l(80)-3)50, 51,51 

50 I=80 

WRITE OUTPUT TAPE ITA0,6,1 
RlOOol 

51 IF(l(113)-2)52,53,53 

52 1=113 

\^RITE OUTPUT TAPE ITA 0,6,1 
1T100=1 

53 DO 70NR=1,3 
NCR=33*KE 
J=NCR+18 

DO 5Ul=lli-,29 
JssJ+l 

5U L(I)=L(J) 

M=M 

IF(m=7)56,56,55 

55 J=i4+NCR 

WRITE OUTPUT TAPE ITA0,8,J 
N100=l 

56 LB1=DB(M) 
IF(EB1-101)58,58,57 

57 J=liHWNCR 

WRITE OUTPUT TAPE ITA0,9,J 
N100=l 

58 DO 60I=1,M 
LB1=LB(I)/2 
LB1=2*LB1 

IF( LB1«LB( I )) 60, 59, 59 

59 J=lU+I+lTCR 

V7RITE OUTPUT TAPE ITA0,10,J 
11100=1 

60 CONTIRUE 
UB1=1 

DO 64I=1,M 
LB2=LB(I)-UB1 
Jsl^+ItRCR 
IF(ER=1)601,601,62 

601 if( 1-3)62, 602, 62 

602 IF(LB2-20)62,64,61 

61 WRITE OUTPUT TAPE ITA0,11,J 
N100=l 

GO TO 6k 

62 IF(lB2-6)63,64,64 

63 WRITE OUTPUT TAPE ITA0,12,J 
N100=l 

64 LB1=-’EB(I) 

IF(n8-m)66,66,65 

65 J=22=mCR 

WRITE OUTPUT TAPE ITA0,13,J 
R100=l 

66 IF(N8 >70,70,67 

67 LB1=0 

DO 69I=1,NB 

IF(LBS(I ) -LB1)68, 68, 69 
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CHAIN LINK (lyEl) - Continued. 



68 J=22+I+HCR 

\TB1TE OUTPUT TAPE ITAO,ll^,J 
N100«l 

69 LBl^LBS(l) 

70 CONTINUE 

if(l( 132 )) 701 , 701, 500 
701 K=132 

WRITE OUTPUT TAPE ITA0,llt5,K 
NlOCtel 
500 RETURN 
END 



* 

* 

* 



C 

C 

C 



LIST 

FORTRAN 

LABEL 

SUBROUTINE DATA3 
DIMENSION 
COMMON 
EQUIVALENCE 



FLOATING POINT DATA CHECK OF NUCLEAR DATA 



ERROR, NO POSITIVE VALUES OF SIGMA TRANSFER FROM G 



15 FORMAT ( 7 OHO ERROR, NO POSITIVE VALUES OF NU*-SIGMA FISSION FOR 
ICELL OR COOLANT) 

16 FORMAT (22H0 ERROR, ADDRESS A(iU, 31 H), NU*SIGMA FISSION IS NEGA 
ITIVE) 

17 FORMAT (72H0 

IROUP 1 TO GROUP 2/24h' FOR CELL OR COOLANT) 

18 FORMAT ( 22 H 0 ERROR, ADDRESS A(I4,38h), SIGMA TRANSFER (l TO 2) 
US NEGATIVE) 

19 FORMAT ( 7 OHO ERROR, NO POSITIVE VALUES OF SIGMA ABSORPTION FOR 
ICELL OR COOLANT) 

20 FORMAT (22H0 ERROR, ADDRESS A(i1^,3IH), SIGMA ABSORPTION IS NEGA 
ITIVE) 

21 FORMAT (22H0 ERROR, ADDRESS A(i1^,41H), DIFFUSION COEFFICIENT IS 
1 ZERO/NEGATIVE) 

22 FORMAT (22H0 ERROR, ADDRESS A(i1^,43H), COOLANT SIGMA TRANSPORT 
US ZERO/NEGATIVE) 

23 FORMAT (22H0 ERROR, ADDRESS A(iI^, 31H), NU*SIGMA FISSION IS POSl 

1TIVE/22H ADDRESS A(i4,22H), NU IS ZERO/NEGATIVE) 

2k FORMAT (22H0 ERROR, ADDRESS A(IU,27H), SIGMA POISON IS NEGATIVE 

1 ) 

25 FORMAT (22H0 ERROR, ADDRESS A(Ii^,4lH), POISON CROSS SECTION RAT 
UO IS NEGATIVE) 

255 FORMAT (22H0 ERROR, ADDRESS A(lk,30R), EIGENVALUE MUST BE POSIT 
IIVE) 

702 M=MCELL 

J=458 



DO 7U=1,72 
JaJ+1 

71 A(I)=A(J) 

DO 73J“1»N0G 
DO 721 = 1 , M 

IF( VUSIG( I, J) )72, 72 , 7^ 
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CHAIM LIMK - Continued. 



72 CONTINUE 
IF(VUSIGW( J) )73, 73> 

73 CONTINUE 

WRITE OUTPUT TAPE ITAO,15 
N100»l 

7l^ DO 78J«1,N0G 
DO 761 = 1 , M 

IF(VUSIG(I,J))75,76,76 

75 K=li5+I+7*J 

WRITE OUTPUT TAPE ITAO, l 6 ,K 
N100=l 

76 CONTINUE 
IF(VUSIGW( J) )77, 78, 78 

77 K= 171 ^HJ 

WRITE OUTPUT TAPE ITAO,l 6 ,K 
N100=l 

78 CONTINUE 
DO 791 = 1 , M 

IF( TRANS( I, 1, 2 ) )79, 79 , 81 

79 CONTINUE 
if(transw)8o,8o,8i 

80 \7RITE OUTPUT TAPE ITAO, 17 
N100=l 

81 DO 83Io1,M 

IF( TRANS( I, 1 , 2 ) ) 82 , 83, 83 

82 K= 1 ^ 86 fl 

X^RITE OUTPUT TAPE ITAO,l8,K 
N100=l 

83 CONTINUE 
IF(TRANS!'f) 8 l^, 85,85 

84 K=1719 

TOITE OUTPUT' TAPE ITAO,l8,K 
N100«l 

85 DO 87J=1,N0G 
DO 86Is1,M 

IF( SIGA( I, J) )86, 86, 88 

86 CONTINUE 
IF(SIGAW(J)) 87 , 87,88 

87 CONTINUE 

WRITE OUTPUT TAPE ITAO, 19 
N100=l 

88 DO 92J=1,N0G 
DO 901 = 1 , M 

IF( SIGA( I, J ) ) 89 , 90, 90 

89 K=486+I+7*J 

^miTE OUTPUT TAPE ITAO, 20, K 

Nioa=i 

90 CONTINUE 
IF(SIGAW(J))91, 92,92 

91 K=1719+J 

17RITE OUTPUT TAPE ITAO, 20, K 
N10C=1 

92 CONTINUE 
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CHAIN LIHK (l.Bl) - Continued. 

DO 9TJ'=1,N0G 
DO 951=2, M 

IF( 1-5)93, 95, 93 
93 IF(DIF(l,j))9U,9i^,95 
9k K=5004-I+7*J 

WRITE OUTPUT TAPE ITA0,21,K 
NlOO^l 

95 CONTINUE 

IF( SIGTRW ( J ) )96, 96 , 97 

96 K=17214J 

WRITE OUTPUT TAPE ITA0,22,K 
N100=l 

97 CONTINUE 

DO 105J=1,NOG 
DO 1021=2,M 
IF( 1 - 5 ) 98 , 102,98 

98 IF(VUSIG(I,J) >102,102,99 

99 IF(VU(I,J))100,100,102 
100 K=451+I+7*J 

M80=144K 

\^RITE OUTPUT TAPE ITA0,23,K,M80 
N100=l 

102 CONTINUE 

IF(VUSIGW( J) )105, 105, 103 

103 IF(VUW(J))104,104,105 

104 K=1714+J 
M 80 »K +2 

ITRITE OUTPUT TAPE ITA0,23,K,M80 
N100=l 

105 CONTINUE 

DO 109NA=1,3 
NCR=522+4o6*(NA-1) 

naa=6+ncr 

DO 1071=NCR,NAA 
IF(A(i))106,107,107 

106 K 0 I 4 NCR-I 

WRITE OUTPUT TAPE ITA0,24,K 
N100=l 

107 CONTINUE 
NAAcNAA+1 

if(a(naa) ) io 8 , 109, 109 

108 WRITE OUTPUT TAPE ITA0,25,NAA 
N100=l 

109 CONTINUE 

IF(A( 1343 ) )1095, 1095, 500 

1095 K=1343 

WRITE OUTPUT? TAPE ITAO,255,K 
N100=l 
500 RETURN 
END 
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CHAIM Lmc (l, Bl) » Continued 



* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE DATAU 
DIMENSION 
COMMON 
EQUIVALENCE 

26 FORMAT (22H0 
10 SMALL) 

27 FORMAT (22H0 
1 TOO HIGH) 

28 FORMAT ( 22 H 0 
1 TOO 1 ^ 7 ) 

29 FORMAT (22H0 ERROR, ADDRESS A(lU, 
IE FOR N0N=ZER0 POTER CALCULATION) 

30 FORMAT (22H0 ERROR, ADDRESS A(lU, 
1ST EE INCREASING) 



ERROR, ADDRESS A(i4, 
ERROR, ADDRESS A(i4, 
ERROR, ADDRESS A(i4, 



15H), 

36 H), 

35H), 

59H), 

43H), 



VALUE OF ESPI1,13H IS TO 
PUMP EXHAUST PRESSURE IS 
PUMP EXHAUST ENTHALPY IS 
QUANTITY MUST BE POSITIV 
GECMETRICAL DISTANCES MU 



TEST OF CONVERGENCE LIMITS 

096 DO llUsl ,3 
J=1723+I 

IF(A( j)-0, 00001 ) 110 , 111, 111 

110 17RITE OUTPUT TAPE ITA0,26,J,I 
N100=l 

111 CONTINUE 

TEST OF PUMP EXHAUST PROPERTIES 
J=1736 

IF(A( j)-2000. 0 ) 113 , 113 , 112 

112 T-JRITE OUTPUT TAPE ITAO,27,J 
NlOOc^l 

113 J=1737 

IF(a( j)- 68 . 0)ll4, 115, 115 

114 V7RITE OUTPUT TAPE ITA0,28,J 
N100=l 

115 ip(powi)ii 85 , 1185, 116 

TEST OF HEAT TRANSFER PROPERTIES 

116 DO 118J=1729 , 1734 
if(a(j)ii7,ii7, 118 

117 WRITE OUTPUT TAPE ITA0,29,J 
N100=l 

118 CONTINUE 

TEST OF GECMETRICAL INPUTS 

1185 DO 121J=1.3 
Rlt=0.0 
K=14+33*J 

m=l(k) 



230 



CHAIM LIMK (l,Bl) - Continued. 



DO 120Ic=l,M 

IF(RHfr(lj J)-Rl)ll9, 119, 120 

119 K=1732fI+7*J 

WRITE CUTPCT TARE TIA0,30,K 
NlOCHl 

120 RlcRINT (I,J) 

121 COMTIMOE 
500 RETURN 

END 



* LIST 

* FORTRAN 

* LABEL 

subroutine: dafr 

DIMENSION 

COMMON 

EQUIVALENCE 

1 FORMAT (59H5 POSffiR/HEAT TRANSFESR/THERMODYNAMIC PROPER 

1TIES/A6H PCWER GENERATION RATE 1PE13.5,7H 

2BTU/BE/46H INLET PLENUM PRESSURE 1PE13.5,11 

3H PSIA JhSlB. INLE?r PLENUM ENTHALPY IPEl 

BTU/L3) 

2 FORMAT ( 38 H COOIANT FLOW RATE OUT SECOND PASS1PE32. 5,6h LB/HR/ 
lUOH ADDITIONAL FIRST PASS FLOW FRACTIONOPF 30 . 5/53H FIRST P 
2ASS nozzle/orifice AREA CONTRACTION RATI0F17. 5/5*^H SECOND PASS 
3 NOZZLE/ORIFICE AREA CONTRACTION PATIOF16.5A3H THERMAL CONDUC 
4TIVITY OF INNER CLADDING1PE27.5# l^H BTU/HR/FT/(DEG F)/33H THER 
5MAL CONDUCTIVITY OF FJELE37.5,18H BTU/HR/FT/(DEG F)A3H THERMA 

6l conductivity of outer claddinge27.5,i8h btu/hr/ft/(deg f)/Uoh 

7 INTERFACE HEAT TRANSFER CCEFFICIENTE 30 . 5#23H BTU/HR/(FT«*2)/(DBG 

8 F)//2IH DRY CORE DENSITYE39* 5, HH LB/(FT3f*3)/29H RADIAL R 
9EFLECT0R DENSITYElH. 5, IIH IB/(FT«*31)) 

3 FORMAT (49HE GECMETRICAL INPUTS/7QH0 

1 CTUL AXIAL RADI 

2 AL/ 78 H REGION INTERFACE DISTANCE INTERFACE DISTANCE I 
3NTERFACE DI3TANCE/76h NUMBER NUMBER (CMS) NUMBER 

U (CMS) NUMBER (CMS)) 

U FORMAT flH 17 , 110 , 1PE15.5,2(I8,E15. 5)) 

5 FORMAT (IH 17,I10,1PE15.5,I31,E15.5) 

6 FORMAT (IH I7,I10,1PE15.5,I8,E15.5) 

7 FORMAT (IH 17 , 110 , IPEI 5 . 5 ) 

8 FORMAT (59H1 NUCLEAR MICROSCOPIC COOLANT PROPER 

ITTES/ 6 IH GROUP 1 GROU 

2P 2/21H NU»SIGMA FISSI0N1PE23.5,E20.5/7H NUE37- 5,E20. 5/21H 
3 SIGMA AES0RPTI0NE23.5,E20.5/20H SIGMA TRANSP0RTE2ii-. 5,E20. 
U 5 / 28 H SIGMA TRANSFER (l TO 2 )Ei6,5) 

9 FORMAT (57H3 NUCLEAR MACROSCOPIC CELL PROPERTI 

IES/ 6 IH GROUP 1 GROUP 

22 ) 

10 FORMAT ( 26 HO REGI0NI2/21H NU*SIGMA FISSIONIP 

IE23.5,E20.5/7H NUE37.5,E20.5/21H SIGMA ABSORPTIONE23. 5,E20 

2 . 5 / 26 H DIFFUSION C0EFFICIEHTE18.5,E20.5/28H SIGMA TRANSFER 
3 (1 TO 2)E16.5) 
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CHAIN LIM (l,El ) - Continued. 



105 F0RI4AT 

11 FORMAT 
1 

12 FORMAT 
1 

14 FORMAT 
1 

15 FORMAT 
IIN ALL 

1 6 FORIIAT 
IT FORMAT 

18 FORMAT 

19 FORMAT 

IEI9.5) 

20 FORMAT 



(’41H1 the eigenvalue to be searched FOR ISIPEI 5 . 5 ) 

( 7 OHO POISON CRITICALITY SEARCH REGIONS - 

) 

{ 7 OH+ CELL 

) 

{70H4= RADIAL 

V 

, i 

{ 70 H+ 

REGIONS ) 

(4TH+ 

(42E0 region sigm poison (group 2 )) 

(IH I7,1?E29.51) 

(53HO PATIO OF POISON CROSS SECTIONS (GROUP I/GROUP 2) IP 
( 56 H 3 CELL AXIAL RADIA 



21 FOPJ/AT ( 25 H CONVERGENCE TESTING 17,111,110) 

22 FORMAT ( 38 ED MAXIMTJM NUMBER OF FLUX ITERATI0NSI22/45H MAXIM 

lUM NUFEER OF CRITICALITY ITERATIONS! 15 /51H MAXIMUM NUMBER OF E 
2 NTHALFY/PRE 3 SUPE ITERATIONSI 9 / 36 H MAXIMUM NUMBER OF RADIAL SWE 
3EPS124///22E FLvXf INLET OPTIONI38/24H BLOCKED FLOW OPTIONl 
436/24H BLOCKED SIDE OPTIONI 36 / 26 H BLOCKED REGION OPTIONI34 
5) 

23 FORMAT ( 3 IEO CONVERGENCE LIMIT FOR FLUX1PE29*5/38H CONVERGE 

INCE LIMIT FOP. 0RITICALIl'YE22. 5/32H CONVERGENCE LIMIT FOR POWER 



2E28.5) 



WRITE OiniUT' TAPE ITAO, I^POVI^PP-OMP^HPUMP 
IF(P::W1)25,25,24 

24 WRITE OUTPUT TAPE XIAO, 2, FLO, RECIRC,HOUT, RATI, TCIN,TCFU,TCOU, HINT, 
IDCDEN,RRDEN 

25 WRITE CUIPUT TAPE ITAC,3 
IF (MAXIAL‘^MRING)26,27,28 

26 I32=MAXIAL 
Nl^l 

GO TO 29 

27 LB2=MAXIAL 
Nl=2 

GO TO 29 

28 LB 2 =eMRING 
N1^3 

29 DO 301 ^ 1 , LB2 

30 WRITE OUTPUT TAPE ITA0,4,I,L3C(l),RINr(l, 1),LBA(I),RINT(I,2),LBR(I 

1),RINT(I,3) 

I31^LB@fl 

31 IF(IB)‘^MCELL)32,32,39 

32 IF(N1-2)33,35,37 

33 LB2^MEING 

DO 34I«LB1,L32 

34 WRITE OUTF'UT TAPE ITAO, 5,I,LBC(I),RINT(I, 1),BR(I),RINT(I, 3 ) 
LBlaLB2^*l 

Nl=2 

GO TO 31 



CHAIU LINK (I9BI ) ■= Continued. 

35 I£2=MCELL 

DO 361^131, IB2 

36 WRITE OUTPUT TAPE ITAO,7 ,I,LBC(i),RINT(I, 1) 

GO TO 39 

37 IB2=MAXIAL 

DO 38I=I£1^I£2 

38 WRITE CCTP'jT ‘TAPS ITA0,6,I,LBC(I),RI1IT(I, 1),LBA(I),RIKT(I,2) 
I£l^ia2+1 

Ni®2 

GO TO 31 

39 WRITE OUTPUT TAPE ITAO.,8,VUSIGW(i),VUSIGW(2),VUW(1),VUW(2),SIGAW(1 
1 ) , SIGAW ( 2 ) , SIGTRW ( 1 ) , SIGTK-J ( 2 ) , TRANSW 

^^RITE OUTFITT TAPE ITAO,9 
DO lais2^MCELL 
if(i=. 5 )ao,Ui^Uo 

40 WRITE OUTPUT TAPE I“TA0,10,I,¥USIGC(l,l),VUSIGC(l,2),VUC(l,l),VUC(l 
l,2),SIGAC(l,l)^SIGAC(l^2),DIFC(l,l),DIFC(l,2),TRANSC(l,l,2) 

41 CONTIFjE 

I=>1343 

WRITE OUTPUT TAPS I'IA0,105,A(I) 

WRITE UUTPUT TAPE ITAO^ll 
1T5=L(132) 

J=13+33*N5 
DO 421^14,29 

42 L(I:)^L(j) 

J=115+4o6*U5 

M 80 =I=fl 

DO 43Ie564/72 
j£=I+l 

43 A(I)=A(J) 

IF(W5 "1)44, 44^46 

44 WRITE OUTFOT TAPE riA0,12 
GO TO 47 

46 V/RITE OUTPUT TAPE ITA0,l4 

47 IF(Sl8)48p48,49 

48 WRITE OUTPUT TAPE ITAO, 15 
E8=:M 

LB1^22‘t33*5?5 
L(I31>M 
ia 2 ^M 80 -l 
DO 4811^1, M 
LBls3iai+l 
ia2=IS2+l 
A(LB2 )sA(m 80) 
ias(i>i 
481 L(l£l}=I 
GO TO 50 

49 WRITE OUTPUT TaPE rTA0,l6,(lBS(l),I=>l,N8) 

50 WRITE OJ'TFUT TAPE ITAO, 17 
DO 5011^1, N8 
LBlr=LBS(l) 

501 WRITE OUTPUT TAPE XIAO, I8, 131, SIGPT(LBI) 

WRITE OUTPUT TAPE 1'TA0,19^T(i) 

WRITE CUTPTJT TAPE ITA0,20 

WRITE COTUT TAPE ITA0,21,L(65),L(98),L(131) 
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CHAIN Lim^ (l,Bl) - Continued. 



]!CCCT=L( 129) 

MICT2=L(130) 

WRITE (OTPUT TAPE mO,22,MICT,MICT2,ITERM,L(l62), (L(i),I=152,155) 

TOITE OUTFUI' TAPE ITAO^ 23,ESP1,ESP2^ESF3 

RETURN 

END 

* LIST 

* FORTRAN 

* LABEH. 

SUBROUTINE BEGIN 
DIM0JSION 
COIMON 
EOlGryALEKCE 

SET FIXED OPTIONS 
C 

N1^N2,N3,NT,N5, 



L(3l^)-2 

L(67)-1 

L(l00)=2 

L(35)=l 

l(68)=2 

L(101)<=1 
L( 36)^2 
L( 69)^1 
l(l02)sl 
L(37K 
L(70)=2 
L( 103:^3 
L(66}=0 
L(99)°0 



POINTWISE DISTANCES AND N^NM1,NM2,MM1 

DO 111^1^3 
R(l)^0.0 
J^13+33*I 
DO TK^lU^21 

1 L^K)=L(J) 

SI!M1=0.0 
M80=1 
LBlt=2 
DO 3<?°1^M 

k=ib(j) 

e(k)=rint(j,i) 

SUM2c:3K-M80 

LB2^-K=1 

DELR( J}=( R(K) - SUMl ) /SUM2 
DO 2K=--LB1,LB2 



23^ 



o o o 



CHAIN LIM (l,Bl) - Continued. 



2 r(k)s=r(k=i)+delr(j) 

LBl=I£2+2 

M80LB2+1 

3 SUMlt^R(M80) 
Js^53Ch4o6*(i-i) 

A(J)=1.0 

n=lb(m) 

NMlc=N»l 

Nl-12=N-.2 

M 80 = 5 + 33*1 

M8l=M80f3 

Jt=U 

DO 4K^M80,M81 
J==J+1 

h L(k)=L(J) 

IF(I^2)5,7,5 

5 Psi.o 

pim=6. 2831853 

DO 6K^1,N 

6 RI(K)=R(K) 

GO TO 9 

7 P40.0 
PIlfcl.O 
DO 8K=1,N 

8 ri(k)^i.o 

9 1 ^ 0 = 126 + 406*1 

M8l=21Offl80 

j=73 

DO 10K=M80,M8 i 
J=J41 

10 A(K)=A(J) 

11 COMTrOOE 

AMAT 

LB1=1BC(2) 

LB2=LBC(3) 

J=0 

DO 12IsISl,I£2 

J=J+1 

U( l,j)sl.O 

U( 2;, J H 3 . 2808E-2 )*RC ( 1 ) 
DO 12K=3-9 

12 U(K,JKj(K-1,J)*U(2,J) 
M80=1+LB2-LB1 

DO 131=1.9 
G(l)«i 0.0 
DO 13J=15M80 

13 G(I)=G(I)W(I,J) 

DO 14I=1,5 

DO 14J=1^5 
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CHAIN LIM (l,El) - Continued, 



Ik amat(i^j)=g(k) 

DO 201=1,5 
DO 20J=1,5 
K=1 

IF( I- J) 15^8^8 

15 amat(i,j)=amat(i,j)/amat(i,i) 

16 IF(K*I)17^20,20 

17 AMAT( I, J )®AMAT( I, J) <.AMAT( I, K)*AMAT( K, J ) /AMAT( 1, 1 ) 

K=K+1 

GO TO 16 

18 IF(K=J)19,20,20 

19 AMAT( I , j)cAMAT( I, J) »AMAT( I, K)*AMAT( K, J ) 

K=K+1 

GO TO l8 

20 CONTINUE 

DEFINE THE RADIAL REFLECTOR PROPERTIES 

MCELT^MCELL 

MAXIAL=MAXIAL 

MRING-^MRING 

BUCK2E(MRING, 1)^(3- 1U}.59265/rIHT(MAXIAL,2) )**2 
BUCK2R{MRING,2)=BUCK2R(MRING, 1) 

FIRST GUESS FOR CHANNEL BUCKLING TERMS 

DO 23Ke=l,N0G 
DO PSI^l^MAXIAL 
DO 231^1, MRI 

23 BUCKCH(I,J,K)-^0.0 

GENERATE SOURCE TERMS 

DO 241^1,101 

S0UC(l)=0.0 

S0UAfl)«0,0 

24 S0UE(l)=0.0 
LB1=LBC(2)+1 
IB2sI3C(3)"l 

Cl=l, 0/(3. 14159265*(RINT( 3, l)*RINT( 3, 1)-RINT(2, 1)*RINT(2, l) ) ) 
DO 25I°i£l,LB2 

25 SOUC(l)=Cl 
14AXI=MAXI 
I31 =LBA(i)+1 
I£2=LBA{MAXI)-1 

Cl=l, 0/(RINT(MAXI, 2 ) =RINT( 1,2)) 

DO 261^131., IB2 

26 SDUA(l)=Cl 
MPJtrMRI 
I32=LER(MRI)-^1 

Cl°l .0/(3. 14159265*RINT(MR1, 3 )*RINT( MRI, 3 ) ) 
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DO 27I==1,LB2 
27 S0UR(I)®C1 
C 

500 EETUEM 
E51D 

* LIST 

* FORTRAM 

* LABEL 
SUBROUTIlffi TEDERMO 
DIMEMSIOM 
COMMON 
EQUIVALEI^-OE 

C INTEEP3LATI0N CALCULATION 

C 

LIILLebI 

IHEATs2 

XXX==F2 

1 JSAI^123*IHEAT 
XINT^JSAT 

vint=heat(jsat) 

lSA'Iba’SAT-.122 

2 VISLl^ISAT 

ISAT^C 1. 0+VISL)+(XINT-VISL1)*(X3(X-HEAT( ISAT) ) /( VINT-HEAT( ISAT) ) 
IF(HEAT( ISAT) =XXX )2, 2, 3 

3 JSAT^ISAT^*! 

IF( HEAT( JSAT) -^XXX ) 5 > 5 ? ^ 

ISATsISAT-1 
GO TO 3 

5 XINIte(XXX*HEAT( JSAT) ) /(HEAT( ISAT) -HEAT( JSAT) ) 

ISAI^ISAT-123*C IHEAT- 1) 

JSAT=ISAT"1 

if( lllll- 1 ) 10^ 10^ 58 

10 IF(IHEAT-2)11,11,13 

11 TSATU2.‘^TSAT( JSAT)4XINT«-(TSAT(ISAT)-TSAT( JSAT) ) 

HL2^ EF'( ISAtI+XIN-I^C HF( ISAT) -HF( JSAT) ) 

Hv2“HC-( :JSAT)+XINT^( HG( ISAT) -HG( JSAT) ) 

IF(HL2-H2)i6^17,12 

12 MODEE^^l 
QUAL2-0.0 
V0ID2K).0 
IHEAT^5 
XXXs=H2 

GO TO 1 

13 T2=TSAT( JSAT)+XINT^{ TSAT( ISAT) -TSAT( JSAT ) ) 

it^ CL2“(HF(ISAT)-HF(JSAT))/(TSAT(ISAT)-TSAT(JSAT)) 

ISUF^O 

JSLT^F2/50.0 

llH IF(FSUP{JSTJP)-F2 )iL 2, l42,li^3 
IU 2 JSUF^r-.JSUF+l 
GO TO iLl 
143 ISUP«ISUP+1 

if(hsuf(isup, JSUF) )i43, 143^ 144 
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Ihk VINT=(P2-PSUP ( JSUP- 1 ) ) /(PSUP ( JSUP ) -PSUP ( JSUP-l) ) 

VISLlsHSUP(lSUP, JSUP-l)+VINT^( HSUP( ISUP, JSUP ) -HSUP( ISUP, JSUP-l) ) 
CV2® ( VISL1-HV2 ) / ( TSUP ( I SUP ) - TSATU2 ) 

VL2^W( JSAT)+XINT^( vf( isat)-vf( jsat) ) 

W2=VG( jsatHxini^C vg( isat)-vg( jsat) ) 

IF(M0DES-1)100, 100, 

15 QUAL2=<H2-HL2)/(HV2-HL2) 

V0ID2={ 0. 83340 , 16T*QUAL2 )*( QUAL2*W2 )/( VL2+QUAL2*( W2-VL2 ) ) 

GO TO 100 

16 IF(HV2-H2)50,17,17 

17 M0DEH^2 
T2=TSATU2 
GO TO lU 

50 M0DEH“3 
QUAL2^1,0 
V0ID2^1, 0 
JSUPsP2/50.0 

51 IF(PSUP(JSUP)-P2)52,52,53 

52 JSUF^SUP+1 
GO TO 51 

53 ISUF'^1 

54 IF(HSUF'(lSUF,JSUr )=.H2)55^55,56 

55 ISUP^ISUP+1 
GO TO 54 

56 E1=HSUF(ISUP-1, JSUP-l) 

V1^VSUP( ISUP - 1, JSUP-l) 

E2=HSUP( ISUP- 1, JSUP ) 

V2^VSUP( ISUP-1, JSUP) 

E3=HSUP ( ISUP , JSUP - 1 ) 

V3-7SUP ( ISUP Ip JSUP-l ) 

E4=HSUP ( ISUP- , JSUP ) 

V4sVSUP( ISUP JSUP ) 

IF(E2) 57, 57,62 

57 XXX^PSDP(JSUP) 

IKEATe2 

LLLLI^2 

GO TO 1 

58 tE"Tsat( jsat}+xini^( tsat( isat) -tsat( jsat) ) 

V OLUMsVG ( JSAT)4XINT^( VG( ISAT) -VG( JSAT) ) 

ENT=HG( JSAT)'fXINT^(HG( ISAT)-HG( JSAT) ) 

XIMT^( TSUP(lSUP-l)-TE)/( TSUP( ISUP ) -TE) 

IF(LLLLL-2h9,59,6l 

59 E2sENT4XINT«(HSUF( ISUP, JSUP) -ENT) 

V2=V0LUM4XIMT^( VSUP ( ISUP, JSUP ) -VOLUM) 

IF(E1)60,60,62 

60 XXXePSUP'C JSUP-l) 

IHEAT=2 

LLIJI!>3 

TO TO 1 

61 E1=ENT4XINT^( HSW ( ISUP, JSUP-l ) -ENT ) 

V1®V0LUM+XINT^ ( VSUP( ISUP, JSUP-l )-V0LUM) 

62 XINT^(P2-PSUP(JSUP-1))/(PSUP(JSUP)-PSUP( JSUP-l)) 
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E1=E1+XIM^(E2-El) 

V1-V1+XINT^( V2-V1 ) 

E2=E3+XINI^(Ei^-E3 ) 

V2=734XINT^ ( V4.=V3 ) 

XINT=(K2-E1)/{E2-E1) 

T2<^T3UF ( ISUP-1 }4XINT^( TSUP ( ISUP ) -TSUP( ISUP-1 ) ) 

W2=714XINT^( V2 - VI ) 

CV2sf E2‘^E1}/(TSUP(ISUP)=>TSUP( ISUP-l) ) 

100 IF(riEST) 1000^000, 121 
1000 TRED=T2/ 100.0 

TEIED2 -TRED^TRED 
TRED3s-TRED*TElED2 

IF( 12-705. 4)150, 151,151 

150 ISAlfe('I2/5.0)-l8,0 

101 JSAT=ISAT-1 

IF(TSAT( JSAT)-T2)103, IO3, 102 

102 ISAT=ISAT-1 
GO TO 101 

103 Xmte( T2-TSAT( JSAT) ) /( TSAT( ISAT) -TSAT( JSAT) ) 

PSsFSAT( JSAT )4XINI*(PSAT( ISAT ) -PSAT ( JSAT) ) 

151 IF(M0DEH-2)104,108,109 

104 iF(P2-iaoo. 0)106, 105, 105 

105 TCLl^. 31533+0 . 06i663^«TKEID-0, 011357*TRED240. 000068420*TRED3 
TCL2=0. 32170+0, 054882*TRED-0. 0087762*TRED2-0 . 00016007*TRED3 
XIMfe(P2-1000. 0)/l000. 0 

GO TO 107 

106 TCL1=0, 31527+0, 061374*TRED-0. 011858*TRED2+0. 00016320^TRED3 
TCL2MD. 3153340, 06166 3*TRED-0. 011357*TRED2+0. 000068420*TRED3 
XINlfe(P2-1000.0)/(FS-1000,0) 

107 TCI2®-rCLl+XIHT+(rCL2-TCLl) 

VISL2=-3 , 0491-1. 8409^rRED+6, 40457*TRED2-0. 029744*TRED3 
SURT2“( 5 . 2C4 o6E-3 )- ( 2 . 13922E-4 )*TRED- ( 2 . 24004E )*TRED2+( 3 . 43981E- 
15 )*TKED3- ( 1, 69209B-6 }*( TRED-^ 'mED3 ) 

TRED=(m)'2-HL2)/)l000, 0^2) 

IF( TRED-O . 003 }202, 201, 201 

201 RBL2s2.063E-3 

GO TO 121 

202 1RED2^TRED*TRED 
TRED3sTRErr' TRED2 

RBL2=^-( 1, 88225E-5 )+•( 3. 39739E-4)*TRED+( 1. 47490E-3 )*TRED2-(8.19500E- 
14)*TRED3+(1, 22556E-4>+(TRED*TRED3 ) 

GO TO 121 

108 TCV2S-0, 003288740. 013173*TRED-0. 0031711*TRED2+0. 00035368*TRED3 
VISV2aG»- 01319240. 014194^^TRED-0. 0035711*TRED240. 0005l849i»^'IEED3 
GO TO 106 

109 IF(F2-1000.0)117,110,110 

110 TCVl^O, 086720-0, 020103"^TRED40. 0022207*TRED2-0. 000072108*TRED3 
vrsvi^o. 076922-0, 0034264*TREIH00. 00035689^THED?+TRED3*9. 3899E-9 
IF(T2-596, 23 ) 112, 111, 111 

111 TCV2eO, 17027-0, 043853-^fTRED+0. 0044871*TRED2-0. OOOl4428*TRED3 
XINT!=^(P2-1000, 0)/1000, 0 

GO TO 113 
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112 TCV2-^-0, 003288740. 0131T3*-TRED-0. 0031711*TRED2+0. 00035368*lRiaD3 
XINT=(P2-1000, 0)/(FS-1000. 0) 

113 IF(T 2 - 5 ^*^« 61)115, 11^^11^ 

114 VISV2=0. 20737“0 . 036836*TREI>+0. 0037431*TREDe+0. 000119^3*TRED3 
VINT=(P2‘^1000. 0)/500. 0 

GO TO 120 

115 viNr=(P 2 -iooo.o)/(Ps-iooo,o) 

116 VIS¥2-0. 01319240, 0li<-19‘^*’IRED«0, 003571 1*TRED240. 005l8l^9*TRED3 
G© TO 120 

117 TCTla^O. 016393+0, 00071136-'^TaEI>+0. 00012148*TRED2-0. 0000013U15*TRED3 

VISVl^Oo 01939i+40, 0065l+59^TRED-0. 00031585*TRED240. 000012U32^<TRED3 

IF(T2‘-5*^*^» 61)119, 118, 118 

118 TC¥2=0, 086720-0. 020103*TREEHO, 0022207*TRED2-0. 000072 108*TRED3 
XI!JT=(F2=250,0)/750.0 

VIM^P2/1000. 0 

¥1372=0,076922-0, 003i^26MTREi>40 . 00035689»tred2+TRED3*9. 3899E-9 

GO TO 120 

119 TC¥2=-0, 0032887+0, 013173*THED-0. 0031711*TRED2+0. 00035368*TRED3 
XINTfe(P2-250, 0)/(PS-250. 0) 

VIM^P2/PS 
GO TO 116 

120 TC¥2=TjVlfXINT* ( Ti:¥2-T0¥l ) 

¥1372=713714 vT:NT-^{ VI372-VI371 ) 

121 REKfEN 
EUD 

CHAIN LINK (2,B2) 

* CHAIN (2,B2) 

* LT3T 

* FORTRAN 

* LA5EI. 

CCFR2 - STEADY STATE rjCIEAR/PCSfflR PROGRAM 
DIMENSION 
COMMON 

equivalence 

1 FORMAT (80H 

1 ) 

2 FORMAT (26H0 TEE REACTOR PCWER IS 1PE12.4,7H BTU/HR) 

3 FCEMAT {69 EI CALCULATION FAILED, MAXIMUM NUMBER OF RADIAL ITERA 
ITIONS exceeded) 

301 FORMAT (2IHI RADIAL ITERATIONI3) 

IF( NPO( 1) )302, 302, 303 

302 K1=0 
K2=l 

GO TO 304 

303 Kl=3 
K2=-l 

304 MRI=MRT 
MAXI=MAXI 
M<OELL=MCEI-L 
MAXIAL^MAOOAL 
SUM5-^RIIFr(MiI, 3 )^2 
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SUM2MD.0 
DO Ulal,I4RI 
SUM1=SUM2 
SUM2=RINT(I,3)«<2 
U DUl#ir( I, l)®{ SUM2-SIBI1)/SUM3 
READ INPUT TAPE ITAI,1 
IF(Pa/l)7,7,5 

5 SUM1^(RINT(MCELL,1))**2 

SUM2=( 3^ 2808E-2 )^(RINT(MAXI5 2 )-RINT( 2 ) ) 
SUM5=PCW1*( SUM1/SUM3 ) /SUM2 
DO 6J^2,MAXI 
DO 61=1^ MRI 

6 DUMMY(lpj)=SUM5 

WRITE 15UTPUT TAPE imD,2,P0Wl 

7 ITER=ITER+1 

if( iter-npo( 11) )9y9,Q 

8 WRI'IE OUTPUT TAPE ITAD,3 
GO TO 37 

9 IF(IPR)902,902,901 

901 WRITE OUTPUT TAPE ITAD^ 301^ ITER 

902 if(powi)io^io,ii 

10 IF(ITER-1)12, 125,14 

11 CALL SSHTR 
IF(N100-2)12;,45^45 

12 K ==0 

DO 13I^1^MAXIAL,MAXI 
K=^K+1 

C1 sDEN( 1^I,K) 

TRANSA ( 1 , 1^ 2 )=C I'^^TRANSi^ 

DO 13J!=1^N0G 

VUSIGA( I c J)^G1*VUSIGW( j) 

VUA(I^J)^VUW(J) 

SIGAA(I, J)“C1"^SIGAW( J) 

13 DIFA( I , J)=l .0/(3. O^Cl^SIGTRl’J ( j) ) 

14 DO 31D®IN=1^MRI 
miN^IMRIN 
IF(PW1)15,15,17 

15 IF(lTER-l)l7A75l6 

16 IF(l( 132 )-iW 4,17 j 24 

17 J=^33 

DO 18Io1,33 
J ^+1 

18 l(i)=l(j) 

J=458 

DO 19I«1^4o6 

19 A(l)=A(j) 

DO 23IMAXIAs2,MAXI 

MAXIAt-IMAXIA 

K^Kl 

DO 20I«=1,5,4 
K^K+K2 



CEACT LIM (2,B2) - Continued. 



C1^DEN( IMRIN, IMAXIA, K) 

TRANSd, 1,2)®C1»TRANSI-J 

DO 20J^1,N0G 

VUSIG (l^ J)^1*VUSIOT ( J) 

VU(I 5 J)=VW(J) 

SIGA( J)®C1*SIGAW( j) 

20 DIF(I,J)=1.0/(3.0^C1*SIGTR^(J)) 

21 CALL- AIM 
IF(N100=2)22y45,U5 

22 IF(F:W1)2‘^,2U,23 

23 CONTINUE 
2k Js 66 

DO 251=^*15 33 
Ji=J+l 

25 L(I)=L(J) 

Jc: 86 U 

DO 261 ^ 1 , 4o6 
j=rvr-fi 

26 A(I)!sA(j) 

DO 2TJ=l5NX 
DO 27I®l5MAXIAL 

27 BUCK2(I,J)=BUCKCH(IMBJ;N5I,J) 

28 CALL AIM 
IF(N100-2 3295^5, 45 

29 IF(ITER=1)305 30^31 

30 IF(NP0(2))32, 32,31 

31 CCNTINUE 

32 J-99 

DO 331^1,33 
J=J-fl 

33 L(lK(J) 

J<=1270 

DO 3Li=1o444 

3k a(iH(j) 

35 CAIi AIM 
IF(n100~i)36,7,45 

36 if(nioi)37537,7 

37 IP(F0H1}45^45,38 

38 DO tOIMRIN^l^MRI 
MRIN^IMRIN 

\miTE OUTPUT TAPE ITAO 5 I 
WRITE COTFUI TAPE ITAO, 25 FOW 1 

39 CALL ANPRAX 

40 CCmTNUE 

45 C1==3«34722E=2 
TRANSW=TRANSW/C1 
DO 46-7=1^ NOG 
7USIGU( J>-sWSIGW( j) /C1 
SIGAW( j)t^lGAW( j) /Cl 

46 SIGTR^(j)eSIGTRW(j)/Cl 
500 CALL CHAINCi^BI) 

END 
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* LIST 

* FORTRAN 

^ LABEL 

SUBROlfTINE SSHIR 
DIMENSION 
COMMON 
EQUIVALENCE 
C 

1 FORMAT (62H2 
IJB SSHTR) 

2 FORMAT (34H 
IR^)) 

3 FOm-lAT (33E1 
il- FORMAT (i 8H 

5 FOPmT (28H 

6 FORMAT ('50H 

7 FORMAT (i 8H 

8 FORMAT (i 8 h 

9 FORMAT (19H 

91 FORMAT (19H 

92 FORtlAT (26 h 

93 FORMAT (34H 

10 F'ORMAT (i8^6E20,5) 

11 FOPilAT (I8,6E20.5/E28,5^5E20,5) 

C 

11=0 

NIOOO 

MAXIAL=MAXIAL 

IFClTER=l''a2^12^13 

12 IF(lTA3)l2l5l21.13 

121 CALL SSHTRl 
12=0 

13=1 

IF(NF0(1))123,123^122 

122 13=2 

123 IF(NP0{2))13A3^12^ 

124 I2=NP0(4) 

IF(I2)13A3A25 

125 IF{NP0(1))126,126^12T 

126 IF(NP0(3)=1)128,128;,129 

127 IF(NP0f3)“l)l29>129,128 

128 C13=1.0 
GO TO 13 

129 C13=0,0 

13 PIMh6. 2831853 
DO 133J=2,MAXI 
DO 1331=151®! 

IF( I- 12) 132,1315 132 

131 FRAC(I,J)=C13 
GO TO 133 

132 FRACf I, J)=( TER1.1(I,I, 40-^TERM( I, J, 3)+(FUL0C-iHTR(l, J, 13 ) )*TERM( I, J, l) 
l=HiP.(l, J,I3)*I®RM(l50',2))/( (RIL.0G4H'mf I, J, 1)+HTR(I, J,2) )*TERM(I, J 
2,1 )-TERM(I,..j,2))) 



mir^OM NUMBER OF ITERATIONS EXCEEDED IN SUBROUTIN 
PROGRAM 'TERMINATED IN CHANNELI2, 19H (lNNER=l, OJTE 
RESULTS WHEN PROGRAM STOPPED) 

RADIAL REGIONI6, 5120/IOH AXIAL/lIH REGION) 

FT^ffiR DISTRIBUTION) 

FRACTION OF FC^'lEP GOING TO OUTER CHANNEL) 
PRESSURE) 

ENTHALPY) 

Fia'J RATE) 

DNB-RATIO) 

WAIi TEMPERATURE) 

MAXIMUM FUEL TEMPERA'TURE ) 
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133 CONTINUE 

WATE^WATE-C(5) 

14 11=11+1 

IF( Il-ITER1-I)l7^ 17^ 15 

15 N100=2 



TOITE 


OUTPUT 


TAPE 


16 WRITE 


OUTPUT 


TAPE 


THUETE 


OUTPUT 


TAPE- 


WRITE 


OUTPUT 


TAPE 


WRITE 


OUTPUT 


TAPE 


WRITE 


OUTPUT 


'TAPE 


V/RITE 


OUTPUT 


TAPE 


WRITE 


OUTPUT 


TAPE 


WRITE 


OUTPCT 


TAPE 


IL.) 


TOITE 


OUTPUT 


TAPE 


imiTE 


OUTPUT 


TAPE 


IL) 


TOITE 


OUTPUT 


TAPE 


J=0 


V7RITE 


OUTPUT 


TAPE 


V/RITE 


OUTPUT 


TAPE 


WRITE 


OUTPUT 


TAPE 


WRITE 


OUTPUT 


TAPE 


1) 


WRITE 


OUTPUT 


TAPE 


V7RITE 


OUTPUT 


TAPE- 


WRITE 


OUTPUT 


TAPE 


WRITE 


OUTPUT 


TAPE 


GO TO 


500 




17 C(5)=OoO 





DO 30K=1,2 
II=K 
ITESTfel 
R1=RHTR(K) 

hd=hdiam(k) 

AEAT=FAREA( K )/CAREA 
CCN1=AHAT 
IF(K»l)l 8 p 18,19 

18 H2=HIN 
P2^PFUMF 
PISIGN=-PIM 
N1=0 

N2=l 

Hour - CONTRACTION RATIO AT INLET 

FAC2=H0UT 

FAC1=ARAT^FAG2 

GO TO 22 

19 HT0P=0,0 
C1=0,0 

DO 211=1, MRI 

htop^htop+flotCi, 1)*RAREA(I)*ENTH(I,MAXIAL, 1) 
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C1=C1+FLCW( I, l)*RAREA( I ) 

DO 20J=2,MAXI 

20 FRACT(l,j)=mc(l,j) 

21 CONTINUE 
HT0P=HT0P/C1 
H2=HT0P 
P2==PT0P 
PISIGNi^PIM 
Nl»l-8l>iAXIAL 
N2s-1 

FAC1=RAT1*ARAT 

FAC2=RAT1 

22 CALL THERMO 
IF(K-2)221j,222,222 

221 C (K)=l . 0/( QUAL2^W2+( 1 . 0-QUAL2 )*VL2 ) 

GO TO 225 

222 IF(H2-HL2)221, 221,223 

223 IF(H2-HV2)22l^, 224,221 

224 HT0P^HV2 
H2=HT0P 
C(K)al.0/VL2 

225 J*^N1+N2 
C1=C(k)/62.43 
DO 23I=1,MRI 
PRES(T,J,K)®P2 
ENTH(I,J,K)^H2 
TEMC(I,J,K)=T2 

23 DEN(I,J,K)=C1 

28 CALL SSHTR2 
IF(N100)30,30,29 

29 WRITE OUTPUT TAPE ITA0,2,II 
GO TO 16 

30 CONTINUE 

DO 311^1^4®! 

IF(I-I2)301,31,301 

301 DO 302J=2,MAXI 

302 FRAC( I, J)s( TERM( I, J, 4 ) -TERM( I, J, 3 )+( FUL0G+HTR( I, J, 13 ) )*TERM( I , J, 1 ) 
1=HTR ( I , J, 13 )*TERM( I, j, 2 ) )/( ( FJL0G+HTR( I , J, 1 )-HITR( I , J, 2 ) )*( TERM( I , J 
2,1)~TERM(I,J,2))} 

31 CONTINUE 

DO 321=1, MRI 
IF(I-I2)311,32,311 

311 DO 313J=2,MAXI 

312 ERRsABSF(FRACT(I,J)/FRAC(I,J)-1.0) 

IF(err=esP3 ) 313 . 313> 14 

313 CONTINUE 

32 CONTINUE 
SUM 3 sK ).0 

DO 33I^1^MRI 

33 SU1-13'^SUM3+RAREA(i) 

SUM3=SUM3*(DZ( l)*C( 1)+DZ(MAXIAL)*C(2) ) 

C(5)“C(5)+SUM3 
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WATE=WATE4C(5) 

3h CALL SSHTRU 
500 RETUEN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE SSHTRl 
DIMENSION 
COMMON 
EQUTLVALENCE 
I4RING^I^ING 
MAXIALsMAXIAL 
MCELIa^MCEIL 

C 

C INITIAL SET UP 

C 

1 HIN==HFUMP 
CON1=3.38i1+9989E-3 
C0N2=6, 5616 E -2 

FAREA( l)=CONl^(RINT( 1, l) )'^2 

FAREA( 2 )^C 0 N 1 *( ( (RINT(5j, 1 ) )^ 2 )-( (RINT( 1|. 1 ) )** 2 ) ) 

HDIAM( l)^C0N2*RINT( 1, l) 

HDIAK(2)=C0N2*(RINT( 5;. 1)-RINT( 4, l) ) 

RHTR( 1)^(3. 2808E-2)*RINT( 1,1) 

RHTR(2 )^( 3 . 2808 E .-2 )^RINT(4^ 1 ) 

HT( 1)^TCFJ^( ( (L0GF(RINT(2, 1)/RINT( 1, l) ) )/TCIN)+1. 0/( ( 3 • 28 o8E-2)*HI 
1NT^RINT(2,1))) 

HT( 2)=-TCRl^( ( (L0GF(RINT(4, 1)/RINT( 3, 1 ) ) ) /TC0U)+1. 0/( ( 3 . 28 o8E-2)*HI 
1NT*RINT(3,1))) 

IF( HP 0( 1 ) ) 102 102^ 101 

101 ci=farea(i) 
farea( i)=farea( 2 ) 

FAEEA(2WC1 

Cl==HDIA14(l) 

hdiam(i)^hdiam( 2 ) 

HDIAM(2)^C1 

Cl=RHTR(l) 

RHTR(1)=RHTR(2) 

RHTR(2)=C1 

Cl«HT(l) 

HT(1)=HT(2) 

HT(2)r--Cl 

102 TW0GJ®6.49029989E+11 
TWCG« 6 , 00444058e+1O 
PDI£C-=L0GF( RINT( 3 , 1 )/RINT( 2 , 1 ) ) 

CAREA=C0N1^(RINT(MCELL, l) )^2 
SUM2-0.0 

DO 2I=1,1®ING 
SUM1=SUM2 

SUM2=C0N1*(RINT( I, 3 ) )**2 

2 RAREA(l)i=SUM2-STOa 
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sm4=o.o 

Dp 3I=1,MAXIAL 
SUM3^SUM4 

sum4=( 3 , 2808E-2 )*rint( 1,2) 

3 DZ(l)=SUli4-SUM3 
SUM3-SUM3-DZ( 1) 

C1=P0W1’^CAREA/SUM1 
DO 4i= 1,MRI 
PaJER(l,MAXIAL)Cl 
DO 4J=1,MAXI 

4 PaJER(l,j)=DWMY(l,j) 

C2=FL05^CAREA /SUMl 
C1=C2*(1.04-RECIRC) 

DO 51=1# MP-I 
FLa-j(lA)=Cl 

5 FLOT(I,2)=C2 

WATE^( SUia-^SUM3*DCDEN)+(RAREA( WRING )*SUM4*RRDEN) 

C(5)^0.0 

DO 61^1^2 

AC3 ( 1, 1 )“-0 o 0093 /HDIA1-I( I ) 

AC3( 2, 1 )=^0. 0017/HDIAIi(l ) 

6 AC3(3,I)=-0.0048/HDIAM(I) 

DZ2=0o0 

SUM1=0.0 

ac4(i,iUo,'' 

AC4 ( MAKIAL;. 1 )=SUM3 

AC4(1.1AXIAL,2)=0.0 

AC4(1,2>SUM3 

DO 71^=2, WiAXI 

DZ1=DZ2 

DZ2=DZ(l) 

SUM1=SUM • 4-( DZ1+DZ2 )/2 . 0 
AC4(lj,l)=SUMl 

7 AC4(I,2)--^SUM3-SU141 
DO 8J«1,2 

DO 8I=1,J4AXIAL 
C1=AC3 ( 1, J ) *AC4 ( I , J ) 

C2=AC3( 2 0 J >^AC4 ( I y J ) 

C3-AC3(3.J)*AC4(I,J) 

DC0Rl(lpj)=0. 435+1. 236*EXPF(C1) 

DC0R2( I, J)=0. 825+2 . 36*EXPF( C2 ) 

8 DC0R3fl^j)^-0.4l*EXPF(C3) 

LB1=1+DBC(3)“I3C(2) 

Cl^U(3,IiBl)/2.0 

C2=U(3,l)/2.0 

C3=Cl/2.0 

C4=C2/2,0 

DO 9J=2^MAXI 

DO 9I=1?MR1 

TERM(I,J.1)=C1 

TERM(I,J,2)--«C2 

IFRI4(I,J,3)=C3 

TERI.l{l,J.4)r=C4 
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CHAIN LIM (2,B2) - Continued, 



DO 9K=1,2 

temc(i,j,k)^o.o 

9 TEM7(I,J,K)=0,0 

12 DO 13K=1,2 
DO 13J=2,MAXI 
DO 131 = 1 , MRI 

13 htr(i,j,k)===ht(k) 

IF(NP0(2))500, 500,14 

14 I1^NP0(4) 
IF(I1)500,500 , 15 

15 I2=NP0(3) 

DO 16J=2,MAXI 

16 HTR(I 1 ,J,I 2 )= 0,0 

500 RE’FJRN 
END 



* 



* 

* 



C 

c 

c 



LIST 

FORTRAN 

LABEL 

SUBROUTINE SSHTR2 
DIJ/ENSION 
COMMON 
EQUIVALENCE 

SET-UP 



1 FORMAT (59H2 
IHTR2) 

2 FCRMAT (22H 

3 FORMAT ( 36 H 

4 FORliAT (i 8 h 

5 FORMAT (40H 

6 FORMAT (ITH 

7 FORliAT (29H 
II=II 
N35=0 
K1=N1+N2 



MAXIMUM NUMBER OF TRIALS EXCEEDED IN SUBROUTINE S 
RADIAL FLa-J S'rEEPI3) 

RATIO OF CALCULATED/ACTUAL FLai2(lPE20. 5)) 
PRESSURE DROPIPE 38 . 5 ,E 20 . 5 ) 

PROGRAM TERILENATED IN RADIAL REGI0NI2) 

ASSUMED FLailPE32 . 5, E20, 5 ) 

CALCULATED PRESSURE DR0P2(lPE20. 5 ) ) 



K2=N1+N2>^MAXIAL 



11=2 

12=0 



13=1 

Cl=1.0 

IF(ITER-1)8,8,11 

8 IF(II=1)9,9,11 

9 C20=0.0 

DO 101=1, Tffil 
10 C20=C20fRAREAfl) 

C19=FL0^AREA/(20. 0^20) 
ASQ=CAREA*CAREA^^-70GJ 
ESP4=1. 5*ESP3 
ESP5=2.0*ESP3 
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CHAIM LINK (2,B2) » Continued. 



11 IF(MP0(2))15,15,12 

12 IF(MP0(3)-11)15,13,15 

13 I2^MFO(4) 

FLa?(l2,Il)=0,0 
DO 131J*^2,MAXI 

131 DM(I2,J,II)«0,0 

C1=C20/ ( C20-RAREA ( 12 ) ) 

IF( 12-13)15^^^5 

14 13=2 

15 FLOTAaFLO 

if(ii-i)it,it,i6 

16 IF(QUAL2)l7,17pl6l 

161 FLOEAs^QUAL2^FLO 
C2^FL0TA*CAREA*Cl/C20 
DO 164I=1,MRI 
IF(I-I2)163,162,163 

162 if(ii-nio( 3 ))i 63, 164,163 

163 FLa'7(l,Il)sC2 

164 CONniTOE 
C1=QUAL2*C1 

17 DFLaj=Cl*C 19 

START RADIAL SWEEP 

18 SUM8«0,0 
N35^W35+1 

IF( N35-ITERM)21, 21, 19 

19 miTE OUTPUT TAPE ITAO,l 

20 V7RITE OUTPUT TAPE ITAO,2,N35 

WRITE OUTPUT TAPE ITAO, 3,FL.a'71,FLaW2 
1'JRITE OUTPUT TAPE ITA0,4,PDR0P1,PDR0P2 
M10O=2 
GO TO 500 

21 IF(N35-2)23,22,23 

22 11=1 

23 DO 501^1,1®! 

IF(I-I2)24,50,24 

24 MRIM=I 
N34^0 

FAC3=C0M1*PJ^REA( I ) 

25 N34=N34+1 

IF( N34-ITEEM}28, 28, 26 

26 \miTE OUTPUT TAPE ITAO, 1 

27 VmiTE OUTPUT TAPE ITA0,5,I'®IN 

WRITE OUTPUT TAPE ITA0,6, (DPH0( j), J=l,2) 
WRITE OUTPUT- TAPE ITA0,7;-(PHl(j),J=l,2) 
GO TO 20 

28 if( II- 1)29, 29, 30 

29 df+o( i)=FLar( I, II )=DFLar 

30 DP+0(2)=FI.0W(I,II) 

DO 32J-=I1,2 
FLOC=DPHOf J) 
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CHAIM LIM (2,B2) ~ Continued. 

FACi^«FLOC /FAREA ( II ) 

GHD==FACl^*HD 
GSQE=FLOC*FLOC /ASQ 
GSQP=( W0GJ/TW<CG )*GSQE 
C8=FAC4/(1.0E406) 

C9=( 0 . 23+0 . 094*08 )*( 1 . OE+06 ) 

C10=EXPF( -1. 5*C8) 

31 CALL SSHTR3 
IF(N100)32,32,27 

32 PHI(J)=PEES(I3,K1,II) 

IF(MPO(2))33,33,4o 

33 IF(ITER=.1) 34, 34,40 

34 if(itA3 >35,35,40 

35 IF(MRI-2)49,36,36 

36 DC 39K=1,MAXIAL 
DO 39J“2,MRI 

EMTH( J, K, II )~EN'm( 1, K, II ) 

PRES( J,K, II )=PRES( 1, K, II ) 

TEMC ( J, K, II )=-GIMC ( 1, K, II ) 

DMB( J, K, II ^«DNB( 1, K, II ) 

IF(k-i)39,39,37 

37 IF(k=MAXIAL)38,39,39 

38 den(j,k,ii)=den(i,k.ii) 

TEM'TC j,KoIl)=-TEM>7( l,K,Il) 

HTR( J . k, il )=HTR( 1, K, II ) 

39 COMTINUE 
SUM8=SDM7*C20/RAREA( 1) 

GO TO 65 

40 IF(N35"1)49,49,4i 

c 

C FLOT PERTURBATIOM TO ACHIEVE DESIRED PRESSURE DROP 
C 

41 ERRsPHl(2)=-C12 
C1-ABSF(ERR/C12) 

IF(C1-ESP4)49,49, 42 

42 IF-(ERR)43,49,44 

43 FLa'Kl,Il)=^1.06*DPHD(2) 

GO TO 25 

44 if(PHI(i)=C12)46,45,45 

45 FLOT( I , it )= 0. 97*DPH0( 1) 

GO TO 25 

46 XIMT=(C12=PHI(1))/(PHI(2)-PHI(1)) 

FLOT ( I, I )=DPHO( 1 )+XIMT*DFLaT 

GO TO 25 

49 SU148=S0M8-45UM7 

50 CONTIMUE 

51 IF(N35"1)52, 52,61 
C 

c gemerate average pressure drop 
c 

52 01=0.0 

C2=1.0E406 
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CHAIN LDjK ( 2 ^B 2 ) - Continued, 



C12^o0 

C3t=C20 

DO 581-lpMRI 

IF(l-I2)5U,53,5l^ 

53 IF(II-HFO(3))5^^,531,5i^ 

531 C3=C20-RABEA(i) 

GO TO 58 

54 AC1( I )=PRES( I, Kl^ II ) -PRES( 1, K2, II ) 
C12=C12+AC1( I )*RAEEA(I ) 

if(aci(i)-ci)56, 56,55 

55 Cl=ACl(l) 

56 IF(C2=AC1(i))58,58,57 

57 C2.-=AC1(I) 

58 CONTINUE 
C1B^C12/C3 
ERR1=0.3/C1 

if( erri<=esf4 ) 59, 60, 60 

59 ERRlaESPU 

60 ERE=(C1-C2)/01 

IF( ERE=EPN1 )65 , 65 , 18 

ADJUST PRESSURE DROP FOR TOTAL FLOW 

61 C2=0.0 

DO 621=1, 1®I 

62 C2=C2+FLa'l(l,Il)*RAREA(l) 

Cl=C2/( CAREA*FL0TA) 

C2=ABSF( 1.0-Cl) 

IF(C2»esp5)63,63,6t 

63 DO 64I=1,MRT 

6k flot(i,ii)=fi.:m(i,ii)/ci 

65 C(5)~cit5)4SUM8 
IF(II=1)66,66,500 

66 PT0P=FRES(I3,J^,II) 

GO TO 500 

67 rDROPl=PDEOF2 
PDR0F2=C12 
FLOTl=FI.a'J2 
FLa'f2=Cl 
I=2*(N35/2) 

IF(I-N35)69,68,68 

68 C12=1,05*PDR0P2 
GO TO 18 

69 IF(FLCW2-1.0)70,65,71 

70 C12-PDRCF1'^( 1, 0+>FLa’7l)/2 . 0 
GO TO 18 

71 IF(IL071-10)72,72,73 

72 XINTte(l,0-FI-O7l)/(FLa72-.FL0Wl) 
C12»PDR0P1+XIM^(PDR0P2=PDR0P1) 

GO TO 18 

73 C12«^. 0*PDR0Pl/( 1. OfFLOa) 
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CHAIM LXHK (2,B2) - Continued, 

GO TO 18 
C 

500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE SSHTR3 
DIMENSION 
COMMON 
EQUr/ALENCE 

1 FORJiAT (39H PR0GRA14 TERMINATED IN AXIAL REGIONI 3 ) 
II^II 

MRINnMRIN 

Q2=0,0 

SUM7=OoO 

IF(N34- 1)101, 101,7 
101 IF(N35-=l)2,2,T 

2 IF(rrER-l)3,3j7 

3 IF( 11-1)4, 4,7 

4 IF(NP0(1))6,6,5 

5 SIDElaO.O 
SIDE2=1.0 
GO TO 7 

6 SIDE1=1,0 
SIDE2s«l,0 

7 I=N1+N2 

P2=PRES(MRIN,I,II) 

H2=ENTH(MRIN,I^II) 

ARATfaFACl 

ITEST-=1 

I 1 =!MF.IN 

IF(II=NP0{3»8,71,8 

71 IF(NP0(4)-1)8,72,8 

72 IF(MRIN- 2 ) 8 , 73^8 

73 MRIN=1 

8 CALL CNOZ 
MRIN=I1 

IF(N100)10,10,9 

9 WRITE tOUTPUT TAPE ITA0,1,I 
GO TO 500 

10 ARATt=FAC2 

11 CALL PEXP 
IF(N100)12,12,9 

12 ITEST=0 
A(l)=H2 
C5=HL2-H2 
C6=VI2/V?2 
C7«HV2-BC2 
IF( 05)13,13^4 

13 Cl=loO 
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CHAIM LINK (2,B2) - Continued. 



GO TO 15 

14 C1=(C5/C7)*^0,75 
Cl!3EXPF( -0, 532*Cl) 

15 Cl=l, U^^Cl/( C6**0, 333( 

C1«1.7"C1 

C2=0, 52^C54C7*(0. 51^8-1, 12*C6) 

DO 16J=2,MAXIAL 
I=N1-W2*J 

ACB( I, l)®C2407*DCaR3( I . II ) 
AC8(I,2^=C7*DG0R2(I,II) 

AC7(I^ 1)'=C1*DC0R1(I, II) 
AC9(l)=C9*AC7(l,l) 

16 AC10(I)=AC8(I,1)4C10*AC8(I^2) 

DO 33K=2,MAXIAL 

I^M1+K2^K 

Jc3l^M2 

IIAXIAssI 

D2^FUL0GsHTR(MRIN,I, 1)+HTR(MRIN,I,2) 
IF(K-2) 17^ 17^18 

17 DZ 1^=50. 0 
GO TO 20 

18 IF(K-MAXIAL)19,21,21 

19 DZl=DZ(j)/2.0 

20 DZ2=DZ(l)/2.0 

Pa^ER2^PCWER( MRIM, I ) 

DTC22=TEMC( MRIN ^ 1, 1 ) -TEMC ( M^IN, 1,2) 
FRAC2^SIDE2*FRAC ( MEIN, I ) 
C0NU^DZ(I)*FAC3 

GO TO 22 

21 DZl^DZf J)/U.0 
DZ2=DZ1 

Pa^EP5=PaffiR{MRIN, J) 

DTC22=TEIMC(MRrH, J, l)»TEMC(llRIN, J,2) 
FRAC2=SIDE14SIDE2^FRAC(MRIM, J) 

22 IF(II=1)2U,2U,23 

23 FRAC2=1.0=FRAC2 

2h IP(MRIN-MP0(U))26,25,26 

25 DTC22=0.0 

26 CALL PXHTR 
IF(N100'i28,28,27 

27 VmiTE OUTFJI TAPE ITA0,1,I 
GO TO 500 

28 IF(K-^MAXIAL)29,32,32 

29 Cl=l. 0/( VCID2*W2-**( 1. 0-V0ID2)*VL2) 
PRES(MRIM,I,II)=-P2 
EMTH(MRIN,I,II)==H2 

TEMC( MRIN, I , II ) =T2 

SUM7=SUM74Ci*C0NU 

DENf MRIM, I, II )=C1/62 . 1+3 

30 CALL HTRAN 
IF(M100)3is 31^27 

31 HTR(MRIM.I,II)=TCFU/EH2-HIT(II) 
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CHAIM LIUK (2,B2) - Continued. 

32 CAIi BURN 
DNB(MRINj I, II )eDNB2 

33 CONTINUE 
I=N1+N2*MAXIAL 
ARAT®0.0 
ITESTfel 

3k CALL PEXP 

IF(N100)35,35,9 
35 PRES(MRIN,I,II)=P2 
ENTH(MRIN,I^II)=H2 
TEMG(MRIN,I,II)«T2 
500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE SSHTRU 
DIMENSION 
COMMON 
EQUIVALENCE 
IF(lTER-l)!^ I 5 II 

1 IFUEIP3l+IBC(3)=LBC(2) 

DISTLl'lMoO 

DISTL( ifuel)=fulog 

I1=IFUEI>1 
DO 21=2,11 

2 DISTL(I)=L0GF{u(2,I)/U(2,1)) 
IF(NPO(i))3,3^8 

3 11=1 

I2r*2 

IF(NP0(3)“1'AA^6 

h 13=2 

5 I^l«2 
C13=-FULCG 
Cl4eI.O 
00 TO 101 

6 13=1 

7 I4=l 
C13=FUL'X 
Cl4^-1.0 
GO TO 101 

8 11=2 
12=1 

IF(NF0(3)“1)9.9^ 10 

9 13=2 

GO TO T 

10 13^1 

GO TO 5 

FIRST GUESS FOR AVERAGE FUEL TEMPERATURE 
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CHAIN LPTK (2;,B2) - Continued. 



101 ITEST«1 
F2«PPTJMP 
H2=H0N4PCW1/FLC 

102 CALL THEHMO 
C1-T2+2000.0 
DO 103 J=2, MAXI 
DO 1031=1, MRI 

103 TFBAR(I,J)=>C1 
GO TO 500 

C 

C CALCULATED AVERAGE AND MAXIMUM FUEL TEMPERATURE 
C 

11 DO 22J=2,MAXI 
DO 2H=1,MRI 
C5U=P0UER( I, J)/TCFU 
IF(l-NP0f4))l2,13,12 

12 TFI=TEMC( I , J, II )-K;U*( 1. 0-FRAC( 1, j) )*HTR( I, J, Il)/PIM 
TFO=TEMC(l' J, 12 )+CU*FRAC( I, J)*HTR( I, J, 12 )/PIM 

GO TO 16 

13 D2=TEJ4C;( I, J, 13 )-K::U*HTR( I, J, 13 )/PIM 

DTC22^D24CU*( C13*TERM( I, J, IU)+C14*(TERM( I, J, 3 ) -TERM( I, J, U ) ) ) 
IF(IU.l)l5,l5,ll^ 

14 TFI==DTC22 
TFC=D2 
GO TO 16 

15 TFI-D2 
TF0:3DTC22 

16 C1^I+CU^<TERM(I,J,4) 

C2=( TFC-TFI+C4*( TERI'I( I , J, 3 ) -TERM( I , J, U ) ) ) /FULOG 
TFMX(l,j)=rTFI 

g( i)=tf-i 

DO 19K=2,IFUEL 
SUM1=0.0 
DO 1715=1,5 
C3=(l5+l)*(l5+l) 

IT SUM1=3UM14-BMAT( I , J, 1 5 )*U( 15+2, K )/C3 
C3sCU*SUMl 

G(K)=CHC2*DISTL,( K) °C3 

tf(g(k)-tfmx(i,j))19,i9,i8 

18 TFMX(I,J)=G(K) 

19 CONTINUE 
SUM1=0. 0 
SUM2«0,0 
I5=LBC(2) 

DO 20K=3,IFUEL,2 

15 = 15+2 

sma=suMi4EC(i5“2 )+4 . o^^rc(i5-i)+hc(i5 ) 

20 SUM2«SUM2+RC(I5-2)«G(K-2)+4.0»^RC(I5-1)*G(K-1)+RC(I5)*G(K) 
TFBAEd, J)=SUM2/SUM1 

21 CONTINUE 

22 CONTINUE 
500 RETURN 

END 
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CHALN LINK (2 ,B2) - Continued. 



* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE CNOZ 
DIMENSION 
COMMON 

equivalence 

C1"ARAT^ARAT 

gsqe«gsqe/ci 

gsqp=gsqf/ci 

NSKP=15 

C3“5.0 

Cl|-=2.0*C3 

C5=C3*C3 

c6s=i;oe*5 

IF(l)^l)l, lj2 

1 P2=PPUMP 
H2=HIN 
GO TO 3 

2 P2s:^PT0P 
H2=HT0P 

3 P1=P2 
H1=H2 

IF(MRIN-1)4.4„7 
h if(N34=i)5,5,7 

5 IF(N35“1)6,6,7 

6 CALL CNCZl 
IF(NI00-2)7,500,500 

7 CALL CN'DZ2 
500 RETURN 

END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTTNE CNOZl 
DII4ENSIDN 
COMMON 
EQUIVALENCE 

1 FORMAT (5^^H2 PRCGFAM N'DT EQUIPPED TO HANDLE SUPERHEATED PLENU14) 

2 FORMAT (69H2 PROGRAM NOT EQUIPPED TO HANDLE EXPANSION INTO SUPE 

IRHEATED REGION) 

3 FORJ.IAT (42H2 MAXIMUM NUfIBER OF ITERATIONS EXCEEDED) 
h FORMAT (43H program TERMINATED IN SUBROUTINE CNOZl) 

STORAGE LOCATIONS FOR VARIABLES WHEN SATURATION IS ACHIEVED 

SOU(l) =■ PRESSURE 
S0U(2) - ENTHALPY 

S0U(3) “ ENTROPY 

S0U(4) - VEL0CITY**2 

S0U(5) - flux-s^/g 

S0U(6) - SPECIFIC VOLUME 
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CHAIN LIM (2,B2 ) * Continued. 

SOUf?) - QUALI'H’ 

S-3U(8) - VOID FRACnON 

sou(9) “ liqxjid specific volume 

SOUflO) - VAPOR SPECIFIC VOLUME 

STORAGE LWATIONS FOR CRITICAL FLOW PARAiETERS 

SOU(ll) - PRESSURE 
S0 j( 12) - ENTEAIPY 
SOU(l3) “ FLUX'^/G 
SOU(l4) - SPECIFIC VOLUME 
SOU(l5) “ QUALITY 
S0U(l6) - VOID FRACTION 
SOU(l7) = LIQUID SPECIFIC VOLUME 
SOU'18) - VAPOR SPECIFIC VOLUME 

DE^IERMINE PLENUM CONDITIONS 

NAA®2 
XXX=P1 

5 CALL CNOZ3 

IF(N100-2)6,9,9 

6 NAA^NAA 
J-NAA 
I«J+1 

HL2«HF( J)*XINT»(HJ( I) -^HP( J) ) 
mr2=HG ( J ) INT5^ ( HG ( I ) -HG ( U ) ) 

IFfH2-HV2)7, 13^8 

7 IF(H2=HL2)10,13A3 

PLEaiJM IS SIPERHEA^TED 

8 VmiTE OGTP'Ur TAPE I’TAO, 1 

9 WRITE (XJTPUT TAPE IIAOjA 
N100=2 
GO TO 500 

PLENUM IS COMPRESSED LIQUID 

10 NAA=5 

XXXeiEl 

11 CALL CN0Z3 
IF(N100-2)12j9#9 

12 NAA^NAA 
.Ir^NAA 

i=-cm 

P2r^PSAT( J)4XINT^( PSAT( I ) -PSAT( J ) ) 
VL2=VF(U;4-XIHT^(VF(I)-VF{ J) ) 

HL2«H1 
H\T2K).0 

V1=IW0G*(P1“P2 >VI2 
GO TO 14 
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PLENUM IS INITIALLY SATURATED 
13 P2=F1 

VL2=VF( J)4XINT^( VF( I ) -VG( j) ) 
V1=0,0 

STORE SATURATED PIENUli VARIABLES 

lU V\T2=VG( J)+XINT^(VG(I)-VG( J) ) 
SL2«SF( J)+XINT^ f SF( I ) -SF( j) ) 
SV2=SG( j)4XINT^f SG(I)-SG( j) ) 
QUAL2^ ( H2 -HL2 ) / ( HV2=HL2 ) 
V0IG2^UAL2 
C1=VT2 1QUAL2*( Vv^2 - vL2 ) 

SW( l)=P2 
S0UC2 )sE2 

Saj( 3 )^SL2-KiUAL2*( SV2=3L2 ) 
S0U(U)=V1 

SOU( 5 )=Vl/{ W0G*C1*C1) 

S0U(6)^C1 
S0Uf7)=^QUAL2 
S0U(8)=V0ID2 
S0U(9)^VL2 
SCJUf 10)^W2 

IF(P2--50, 0)1»+1^ lUl, 142 

141 V0LUM=C1 
G(3)-SOU{5) 

GO TO 32 

DETERMLKE MAXIMUM MASS FIUX 

142 S2=SDU(3! 

TCT«0 

12^0 

P2n:F2-5.0 
GO TO 17 

143 P2=50,0 

15 IC-T==ICT+1 

IF( ICT-IIERI4) n^llj 16 

16 WRITE CUTPuT TAPE riA0^3 
GO TO 9 

17 GIPfl>P2-C3 
GIPi'2)=:P2403 
G1P(3W2 
DO 26K=1,3 
NAA«2 
XXX^UlK) 

18 CALL CN0Z3 
IF(N100=2)19,9,9 

19 NAA^^NAA 
J=NAA 
I^-J +1 
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■ SL2=SFC.j)fXINT^(SF(l)-SF(j)) 
SV2=SG( J)4-XIIIT^( SG( I ) -SG( J) ) 
HL2«HF ( J)"5-XINT^ ( HF( I ) -HF( J) ) 
F\A2=’HG( j)+Xim^(HG(l)-HG( J) ) 
11=0 

QUAI2=( S2-SI2 ) /( S\?'2-SL2 ) 
C1=HL2-»^UAL2*(HV2-HI2 ) 
C1^W0GJ*EN0Z*(H1-C1) 
V2=V1+C1 

20 11 = 11+1 

IF( I )-NSKP)2 1,21,16 

21 C2=C1*EXFF(-V2-5^RUSQ) 
ERRH1=V14C2«V2 
ERB“ABSF( ERRH1/Y2 ) 
IF(ERR-C6)23,23,22 

22 V2=V2+ERPE1 
GO TO 20 

23 H2=Hl+(71-V2)/WX-.r 
QUAL2=( H2 -KL2 ) / ( HV2 -HL2 ) 

IF( QUAL2 -1.0)25,25,24 

24 WRITE OUTPUT TAPE ITA0,2 
GO TO 9 

25 VL2=VF(J)+XINT*(VF(I)-VF(J)) 
W2=VG ( J)+XIHT^{ VG ( I ) - VG( J ) ) 
V0LUM=''7L2‘tOUAI2^( W2 - VL2 ) 

26 g(K)=V2/(VOLUM*VOLUM^'70G) 
C1=(g(2)=G(i))/C4 
C2=(g(2)+G(1)-2.0^(3))/C5 
IF(ICT-1)26i,261,28 

261 IF( 12)33 <,33, 27 

27 IF(Cl)32^ 32,28 

28 err,jabsf(c;3^ci/g(3)) 

IF ( ERR-ESP 3 ) 32 , 32 , 29 

29 IF(C2)31,30,30 

30 P2=GIP(3)+e5.0^Cl/ABSP(ei) 
GO TO 311 

31 P2=G1P(3)“C1/C2 

311 IF(P2-S0U(1))15,312,312 

312 P2-30U(l)-10.0 
GO TO 15 

32 S0U(ll)=P2 
S0U(12)=H2 
S0U(13)=G(3) 
sou(i4)=voluj.i 

sour 15 )=QUAL2 
S0U(i 6)«QUAI,2 
S0U(l7)=YL2 
SOU( i8)-vT2 
GO TO 500 

33 C1=(G(2)=G(1))/c4 
ERR=ABSF( C3*C1/g( 3 ) ) 
IF(ERR-ESP3)32, 32,3^^ 



I 



iJ 





ooo ooo ooo 



CHAIM LINK (2>B2) - Continued. 



12^1 

IF(Cl)lii-3,32,32 
500 RETURII 
EMD 

* LIST 

* FORTRAN 

* LABEL 
SUBR0LT?IME CN0Z2 
DIMEMSION 
COM'^ON 
EQUIVALENCE 

C 

1 FORi'AT (26H2 NOZZLE FLOT IS CHOKED) 

2 FORtAT (L2H2 MAXimi NUMBER OF ITERATIONS EXCEEDED) 

3 FORJAT (43H program TERMMTED IN SUBROUTINE CN0Z2) 

DETEPMNE ACTUAL PRESSURE DROP 

IF(GSQP-S0U(13))7,4,5 

4 P2==S0U(ll) 

H2=S0U(12) 

V0LUM=S0U( l4) 

QUAL2=S0U(15) 

V0ID2®S0U( l6) 

VL2^S0U(l7) 

V^/2^S0U(i8) 

GO TO 22 

5 WRITE OUTPUT TAPE ITAO, 1 

6 WRITE OUTPUT TAPE ITA0,3 
N10Os2 
GO TO 500 

7 IF(GSQP-S0U(5))8,8,9 
COMPRESSED LIQUID EXEAUST 

8 H2«S0U(2) 

V0LW1=S0U(6) 

F2=^P'1-GSQP*V0LUM 
QUAL2=^0. 6 
V0ID2=^0,0 
VL2«S0U(9) 

W2t^S0U( 10) 

V0LUM«VL2 
GO TO 22 

SATURATED EXHAUST 

9 S2=S0TJ(3) 

Vls.-S0U(4) 

ICT^O 

P2=S0U(l)=25.0 
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CE4IN LINK (2,E2) = Continued, 

10 ICT^ICT+1 
IF( ICT-ITERM) 12, 12, 11 

11 WRITE OUTPUT TAPE ITA0,2 
GO TO 6 

12 G]P(l)=P2-*G3 
GIP(2)=P24C3 
GIP(3)®P2 
DO 20K^1,3 
MA®2 

xxx==gif(k) 

13 CALL CN0Z3 
IF(iaOO-2)lU,6,6 

111- MAsKAA 
J^=NAA 
I=^J+1 

SL2=SF( J)+XIM^(SF(I)-SF( J) ) 
SV2=SG( J)4XIN!I^(SG(I)-SG( J) ) 
HI2cHF( j)4XIie?»^( HF( I ) -HF( J ) } 
HV2«=HG ( J)4XINT^ ( HG ( I ) -HG ( J ) ) 

11=0 

QUAL2=( S2-SL2 )/ ( SV2-SL2 ) 
C1=HL2+QUAI2*( HV2‘>H]C2 ) 

C1=TW0G J^EWOZ*( Hl-Cl ) 

V2=V1+C1 
15 11=11+1 

IF(I1-WSKP)i6,i6, 11 

16 C2=C1*EXPF(<-V2*RUSQ) 
ERRE1=71+C2-V2 
ERR=ABSF( ERRH1/V2 ) 
if(err-c6)i8,i8, it 

17 V2=V2+ERRfll 
GO TO 15 

18 H2«H1+(V1"V2)/'TW‘XJ 
QUAI2=( H2-HI2 )/( HF2-HL2 ) 

IF( QUAi2- 1 , 0) i9, 11, 11 

19 VL2=VG(J)+XINT»(VF(I)-VF(J)) 
W2=VG( J)+XIM^(VG( I)-VG( J) ) 
V0LUM=^/I2+3UAL2*( W2-VL2 ) 

20 G(K)-V2/(VOLUM*VOLUM*n-70G) 
C1 =(g(2)=G(i))/C4 

err-absf( f g( 3 ) /GSQP ) =1. 0) 
IF(EPJR-ESP3 )22, 22, 21 

21 P2=GIP(3)+(GSQP-G(3))/C1 
GO TO io 

MCMEKTUM AWD KTRETTC EHERGY TERMS 

22 EM2>::<}SQF^V0LW¥OLDM 
PK2=GSQP^V0LUM 
V0ID2=QUAI2 

500 RETURN 
END 
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CHAIIT LIM (2,S2) - Continued. 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE CNOZ 3 
DIMENSION 
COMMON 
EQUIVALENCE 

STEAI4 TABLE ITERPOLATION ROUTINE 

1 FORMAT (5IH2 TRIAL VALUE IS TOO HIGH FOR STEAM TABLE VALUES) 

2 FORMAT (50H2 TRIAL VALUE IS TOO LOT FOR STEAM TABLE VALUES) 

3 FORMAT ( 43 H PROGRAM TERJ.UNATED IN SUBROUTINE CNOZ 3 ) 

NAA^NAA 
J"123*NAA 
XDirfcJ 

vint=heat(.j) 

I«I -=122 

IF(NAA-2)4^1i,8 

4 IF(XXX-HEAT(J))8,T>5 

5 l-fRITE OUTPUT TAPE ITAO^l 

6 WRITE OUTPUT TAPE ITAO,3 
N10&^2 
GO TO 500 

7 NAA=123 
XINTt-’O.O 
GO TO 500 

8 IF(HEAT(I)-XXX)11j10,9 

9 V7RITE OUTPUT TAPE ITA0,2 
GO TO 6 

10 NAA=1 
XINTsO.O 
GO TO 500 

11 Y=1 

I==( 1. OfY) 4 <XINT-Y)*(XXX.HEAT( I ) )/( VINT-HEAT( I ) ) 
IF(HEAT(I)-XXX)11, 11, 12 

12 J=I-=1 

if(heat( j)"Xxx)iU, lU , 13 

13 

GO TO 12 

lU XINTfe=(XXX=HEAT(j))/(HEAT(l)‘-HEAT(j)) 

NAAr-.-J=123*(NAA=l) 

500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE PEXP 
DIMENSION 
COMMON 
EQUIVALENCE 
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CHAIN Lime (2,32 )- Continued. 

1 FORMAT (61H2 MAXILUl-I NUMBER OF ITERATIONS EXCEEDED IN SUBROUTIN 
IE PEXP) 

C5=ARA0^ARAT 
G3QE=GSQE*C5 
GSQP^SQP^C5 
AH1=H2+ENK2 

APl-F2+(2. O^AEAT-C5 )*PK2 
11=0 

TEST rOMBER OF ITERATIONS 

2 11 = 11+1 
IF(I1-ITERM'AAp3 

3 N100=2 

XroiTE OUTPUT TAPE ITAO, 1 
GO TO 500 

MCflENTUM, ENERGY, AND ERROR TERl^B 

U CALL THERI40 
TF(QUAL2)5,5,6 

5 C1^VL2^VL2 
C2=0 
C3t2VL2 
Ch^O 
GO TO 9 

6 C1=1.0-QUAL2 
IF(C1)7,7,8 

7 C1=0.0 
C2=W 
C3=0.0 
04^^772 
GO TO 9 

8 C5=C1*VL2/ ( 1 . 0-V0ID2 ) 

C3=^C1*C5 
01=03*05 

C5=QUAL2^ W2/V0ID2 
C4^QUAL2*C5 
C2=C4*C5 

9 ENIffi=GSQE^(Cl+C2) 

PK2=GSQP*(C3+04) 

ERRH2=AHlj-ENK2-H2 
ERRP2=AP1=PK2.=F2 
IF(I1-1)12,12,10 

CONVERGENCE TESTING 

10 C1=ABSF((ERRH2/H2) 

C2=ABSF( ( ERRF2/P2 ) 

IF(Cl-ESP3)liai,12 

11 IF(C2=ESP3)50b,500,12 
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CHAIN LINK (2,32 ) - Continued. 



NEW VALUES OF PRESSURE AND ENTHALPY 

12 P2=P24EREP2 
H2=H2+EREH2 
GO TO 2 

500 RET0B.N 
END 

LIST 

FORTRAN 

LABEL 

SUBROUTINE PXHTR 
DIMENSION 
COMMON 
EQUIVALENCE 

INITIAL SET UP 

Qls:Q2 

Q2=( PCWER2*FRAC2 )+( PISIGN*TCFU*DTC22 ) /D2 

Cll=( Q1*DZ14Q2=DZ2 ) /FLOC 

AHlsH24EHK24Cll 

AP1=P2+PK2 

H2=AH1 

ICIK) 

CALCULATION 

1 ICT«ICT+1 

2 CALL THERMO 

IF(QUAL2)3,3A 

3 C1=VL2*VL2 
C2=0. 0 
C3=VL2 

cU=o . 0 
GO TO 9 
h Cl==l. 0-QUAL2 
IF(C1)5,5,6 

5 C1=0.0 
C2=W2*W2 
C3==0. 0 
C4^V/2 

GO TO 9 

6 C5=C1*VL2/(1.0.=V0ID2) 

C3=C1*C5 

C1=03*C5 

C5=QUAL2*W2 /V0ID2 
C4=^UAL2*C5 
C2=C4*C5 
GO TO 9 
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CHAIU LIUK (2,B2) - Continued. 



C 

C 

C 



C 

C 

C 



c 

c 

c 



0 



9 C5«( 0. 092*DZ2/HD)/( ( GHD*( ( QUAL2/VISV2 )+((!. 0-QUAL2 ) /VISL2 ) ) )**0: 2 ) 
EMC2=GSQE^(C1+C2) 

PK2=GSQP*{ C3+CU )*( 1 . 0+C5 ) 

ERRH2=AH1-ENK2-H2 
ERRP2«AP1-PK2-P2 
IF(lCT~l)l 6 , 16,10 

TEST ERROR 

10 C1=ABSF(EFRH2/H2) 

C2=ABSF(EPRP2/P2) 

IF(C1-ESP3)11,11, 13 

11 IF(C2-ESP3)12,1?,13 

12 PK2«GSQP*(C3'K!i^)^^1.0-C5) 

Q1=Q2/(PIM*R1) 

GO TO 500 

TEST NUMBER OF ITERATIONS 

13 IF(lCT-ITER14)l6,l6,lil- 
lil- N100^2 

WRITE OUTPUT TAPE ITAO, 15 
GO TO 500 

15 FORMAT (40H2 TOO MANY TRIALS IN SUBROUTINE PXHTR) 

NH-J VALUES OF ENTHALPY AND PRESSURE 

16 H2:=H24-ERRH2 
P2=P2*ERRP2 
GO TO 1 



500 RETURN 
END 



* 

* 

* 



C 

C 

c 



LIST 

FORTRAN 

LABEL 

SUBROUTINE HTRAN 
DIMENSION 
COMMON 
EQUIVALENCE 

1 FORMAT (63H2 MAXIMUM NUMBER OF ITERATIONS EXCEEDED IN SUBROUTIN 
IE HTRANl) 

IF(QUAL2)2,2.,6 

PRESSURIZED LIQUID 
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CHAIN LIM (2,B2) - Continued. 



2 C1=0.023*(TCL2/HD)*( (GHD/VISL2)**0.8)*( (CL2*VISL2/TCL2)**0. 33) 
C2=T2+)Q1/C1) -1. 97*( Q1**0. 26 ) 

IF(C2»TSATU2)3,3,5 

3 W2-T24Q1/C1 
U RH2=^R1*C1 

GO TO 500 

5 H1«H2 
Cls’T2 
B2^^HL2 

51 CALL THERMO 
H2«H1 
T2=C1 
C1=0.0 
GO TO 7 

VAPOR 

6 C1=^0. 023>^( TCV2/HD)*( (GHD/VISV2 )**0, 8)*( ( CV2*VISV2/TC^ )**0. 33 ) 
C1-^UAI2*C1 

IF(QUAL2-0.70)7,3,3 

BOILING 

7 C2=778 . 26*( 1 . 0-QUAL2 )*RBL2*( 1. OtCL2*( TSATU2-T2 ) /( HV2-HL2 ) ) 

C2=C2^CL2*CL2*W2/ ( SURT2*VL2*( W2-VL2 )*( h^9 • 764TSATU2 ) ) 
IF(C1)8,8,10 " 

8 TO2«TSATU2+( 0l/C2 )^0. 33 

9 RH2=R1*Q1/(W2-T2) 

GO TO 500 

10 llt=0 

TO2~TSATU2-f-30. 0 

11 I1==I14-1 

IF( Il-ITERM) 13 12 

12 N100=^2 

WRITE a^UT 'lAFE ITAO^l 
GO TO 500 

13 C3=TW2 

Ch^i Q1-C1*(TW2-T2) )/C2 
IF(Ci^)l4, 14, 15 
Ik C5==1.0 
CJ^»C4 
GO TO 16 

15 C5=1.0 

16 TO2=TSATU2-K;5*( Ci^^-5^0. 33 ) 

ERR«ABSF( ( T72/C3 )-l. O) 

IF(ERR,-ESP3)9j.9^11 

500 RETURN 
END 



266 



V 




ooo ooo ooo 



CHAIN IIM (2,B2) - Continued. 



* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE BURN 
DIMENSION 
CCMMON 
EQUIYALEICE 

MAXIA]>MAXIA 

ENTHALPY DNB RATIO 

DNB2^(H2-A( 1))/AC10(MAXIA) 
IF(QUAL2-0. 1)101, 101,500 

a=DNB PATIO 

101 C2=0.01*(TSATU2-T2) 
IF(C2)l,2,2 

1 C2=0 0 

2 C2=3.0+C2 
Cl=^Ql/( C2*AC9(MAXIA) ) 

FIND MAXIMUM DNB RATIO 

IF( C1-DNB2 )500, 500 , 3 

3 DNB2=C1 
500 RETURN 

END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE AIM 
DIMENSION 
COMMON 
EQUIVALENCE 

1 CALL SIGMA 
NSKF=0 
IF(N5)6,6,2 

2 DO 3-1=1, NOG 
DO 31 = 1 , M 

3 VUSIG(I,J)=¥USIG(I,J)/EIGEN2 
IF(N5=2)U,U,5 

h if(I'IEF;-1)5,5,6 

5 ICT2<3l 

6 CALL- CONS 
ICT^^^O 
ICT1=0 
EIGEN=0. 0 
EIGEN1=0, 0 
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CHADJ UHK (2,B2) - Continued. 



7 CALL FLUX 

8 CALL EIVAL 

9 CALL CONV 

IF( 11100= 1)7, 10,500 

10 IF(N5)i6,i6,11 

11 CALL GRIT 

if(nioo- 1 ) 13 , 12,500 

12 IF(N5-2)13,13,6 

13 DO liU=^l,N0G 
DO 14I=1,M 

14 VUSIG(I,J)=VUSIG(I,J)*EIGM 2 

15 CALL RING 
GO TO 500 

16 CALL CEIAX 
500 RETURN 

END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE SIGMA 
DIMENSION 
COMMON 
EQUIVALENCE 

DO 6J^1,N0G 

CAICUIATE TOTAL REMOVAL CROSS SECTIONS 
DO i^Ie^l,M 

SIGT( I, J)=SIGA( I, J)+SIGPT(i)=T( J) 
IF(J-1)1,1,2 

1 SIGT(I,J)^SIGT(I,J)4TRANS(I,1,2) 

2 IF(BU>jK2(I,J))4,4,3 

3 SIGT(I,J)=SIGT(I,J)*DIF(I,J)*BUCK2(I,J) 
U CONTINUE 

SET FLUX TO ZERO 

DO SK^1,N 

5 fhi(k,j)-o.o 

6 CONTINUE 
C 

500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE CONS 
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CHAIN LIM (2, B2) = Continued. 



DIMEINSION 

CCM40N 

EQUT\^ALENCE 



IF(NSKP)l,l, 11 

1 IF(N1=2)2,5,5 

PLANE GECMETRY 

2 DO 3I-2;.NM1 
FL(I)=0,0 

3 FIP(I)=1.0 
DO i)-I=l,MMl 
AC1(I)=0.0 

ll- AC2(l)=:1.0 
GO TO 9 

CYLINDRICAL GEOMETRY 

5 DO 6Is1^M 

6 agi(i)=^p*delr(i) 

LB1=1 

LB2«LB(l) 

DO 8l^2pNMl 
FAC2=AC1(LE1)/R(I) 

FIP( l)i^l, 0/( 1. 0fFAC2/2. 01 
FL(I)=FAC2*FLP(I) 

IF(I=LB@)8,7,T 

7 KsLBI 
I31=K+1 
LB2=I£(LB1) 

FAC2=AC1(LB1)/R(l) 

AC2(K)=1, 0/( l,OfFAC2/2, 01 
AC1( K )=FAC2*AC2( K) 

8 CONTINUE 

CCMMON CALCULATION 

9 DO 10J=1,NOG 
DO 101=1^ MMl 

10 AC5 ( I, J)=( DIF( I+l;, J )*DELR( I ) )/DIF( I , J )*DEM( I+l ) ) - 1 , 0 



11 DO 12J"1;,NX 
DO 121=1^ M 

AC3 f I o DELR( I )**2 )/DIF( I, J) 

12 AC4(l5j)r,AC3(li,J)*SIGT(l,j) 

IF(N2-2) 13^8^8 

FLUX GRADIENT ZERO AT ORIGIN 
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CHAIN LI¥K ( 2 ,B 2 ) - Continued. 



13 IF(R(1))i 4,14,15 
lit P2=2.0*(l.04P) 

GO TO l6 

15 P2=2.0 

16 DO 17J=l,NOG 

AC 6 ( 1, J)=AC3( Ij, J)/P2 

17 AC6(2, J)=SIGT( 1, J)*AC6( 1, J) 

GO TO 20 

C 

C FLTJX ZERO AT ORIGIN 

C 

18 DO 19J=1,N0G 

AC6( 1, j)=AClt( 1, J)^FLP(2)-FL(2)+1.0 

19 AC6(2,J)=AC3(1,J>^FLP(2) 

C 

C COt^'ON CAIOULATTON 

C 

20 DO 2L:”1jNCG 
DO 21I=1,MM1 

AC7(I^J)“AC2(I)*AC4(I+1,J)-AC1(I) 

21 AC8(I,J)=AC2(I)*AC3(I+1,J) 

500 PJHURN 

END 

* ITST 

* FORTRAN 

* LABEL 
SUBROUTINE FLUX 
DIMENSION 
COMM-ON 
EQUIVALENCE 

C 

L0&=2 

N=N 

1 DO 291=1^. nog 

2 K8=1 
K9=L3( 1) 

DO 4Js1,N 

d(jKsi(k 8 ,i)*sw(j) 

IF(J-K9)l^,3,3 

3 dp(k 8 )=^chi(k 8 +i,i)*sop(k 8 ) 
k 8 =k 8+1 

K9«LE(k8) 
h CONTINUE 
DO lt07J=l,M 

IF(3UCK2( J, I ) )lt01, 407, U07 

401 I2=J-1 

SUM1=-BUCK2 ( J, I )*DIF( J, I ) 

IF( 12)402, 402, 403 

402 K8«1 

GO TO 404 
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CHAIN LIM ( 2,B2) = Continued. 



i^03 I1=LB(I2) 

K8=I1+1 

K9^LB(J) 

DO 405K=K8,K9 

405 d(k)=d(k)+sumi*phi(k,i) 

IF( 12) 407,407,406 

406 DP(I2)3DP(I2)4SUM1*PHI(I1,I) 

407 CONIIiNUE 

5 IF(I-iU5,15,6 

6 nB3=i“i 
LB2=I‘-NDS 
IF(LB2 -iK,8,8 

7 I£2=l 

8 DO 
I1"LB(J) 

SlMsO.O 

DO 9K“LB2,L33 
M80=K-LB2+1 

9 SUM=!SD^«-TRAKS(J4>1,M80,I)*PHI(I1,K) 

10 DP(-J)=DP(J)4SUM 
I2=-.LBf l)+l 
13-1 

DO 14J=1^N 
STJM=0.0 

IP(J-I2)12,11,11 

11 13^1341 
I2sl£(l3)+1 

12 DO 13K=IiB2,LB3 
l4eK=LB241 

13 SUM=SUM4TRANS(I3,I4,I)*PHI(J,K) 

14 D(J)s=d(J)+SUM 

15 IF(N2-2) 16,17,17 

C 

C DERIVATrvTS OF F-LUX EQUALS ZERO AT INNER BOUNDARY 
C 

16 BETA(l)^D(l)^AC6fl,l) 

DELTA(2)=AC6(2,I) 

GO TO 18 
C 

C FLUX EQUALS ZERO AT INNER BOUNDARY 
C 

17 BETA(2)=AC6(2,I)*d(2) 

DELTA(2)=AC6(1,I) 

L0B=3 

C 

C CALCULATION OF DELTA AND BETA 
C 

18 l 6 r=LB(l) 

17=1 

DO 21J=L0B,NM1 
SM^C3( 17 . 1 )*D( J)*FLP( J) 
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CHAIN LINK (2jB2) - Continued, 



CK=ACll-( IT, I )*FLP( J)*>FL( J) 

CL=FL(J) 

SLrsl.O-CL 

C0N1=1. 0/( 1. OfDELTA( J) ) 

IF(J=i 6)19,20, 19 

19 beta(j)=sl*coni^beta(j-i)+sm 

DELTA( J+1)=0K4O0N1^(dELTA( J)+CL) 

GO TO 21 

20 CIP=AC1(I7) 

SLP«1. 0-CLP 
CKP=AC7(I7,I) 

SMP=AC8( 17, I )*DP( 17 ) 

GAMsAC5(l7,l) 

GAMl=GA14fl. 0 

C0N2=0, 5*(CK+DELTA( J)*C0N1*2. 0+GKP+CL*C0N1+(GA1v;-K::LP)^^-(CKP+2: )/SI4>) 
C0N3^1.0-CLF/2,0 

BETA( J)i=( SM4<C0N1*( 2. 0-CX)*BETA( J-l)-K3AMl*SMP/SLP )*( SLP/(GAM1*(2 . 0- 
ICIP))) 

DELTA( C0N2*SIP-GAM*CaN3»CLP/2 . 0)/( GAill*C 0 N 3 ) 

17=17+1 

I6=LB(I7) 

21 CONTINUE 

22 IF(N3-2)23, 21^,24 
C 

C FLUX EQUALS ZEP.O AT OUTER Ba^NDARY 
C 

23 phi(n,i)=o.o 

GO TO 25 
C 

C DERIVATIVE OF FLUX EQUALS ZERO AT OUTER BOUNDARY 
C 

24 C0N1=1.CM=DELTA(N) 

Pin ( N , I )= ( AC3 (M, I )*C0N1*D( N)+2 . 0*BETA ( N- 1 ) )/( C0N1*AC4(M, I )+2 . 0* 
IDEITA(N)) 

C 

C START BACKWARD COMPUTATION 
C 

25 DO 26^«1,NM2 
I20«N-J 

26 PHI(I20,I)^(PHI(I20+1,I)+BETA(I20) )/( 1. 0+DELTA( 120+1) ) 
IF(N2-2)28^27,27 

27 PHI(1,I)=:0.0 
GO TO 29 

28 PHI( 1, I)«{PHI(2, I )+BETA( 1) )/( 1. 0+DELTA(2 ) ) 

29 CONTINUE 
500 RETURN 

END 

* LIST 

* FORTRAN 

* LABEL 
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CHAIH LINK (2.,B2 ) - Continued, 



SOBRXnWE ETVAL 
DIMENSION 
COMMON 
EQUIVALENCE 

1 LB2=LB(i) 

2 M80^1 
DO TI^l^N 

g(i)=o.o 

DO 

3 g(i)=g(i}+vusig(m8o,j)*phi(i,j) 
gi(i)=g(i)*ri(i) 

IF(I-LB2)T,U,1', 

h IF(I^N)5,7,7- 

5 gp(m8o)=o.o 

DO 6J=1,NX 

6 GP(M80)t=GP( M80)+VUSIG(M80t-lj, J)*PHIII, J) 

gip(m8o)=gp(m8o)*ei( I ) 

M 80 EM 80 fl 
LB2=jLB(m80) 

7 CONTINUE 

BEGIN CALCULATI'IfJ OF EIGENVALUE 

8 t^O=l 
LB2c^3 
IB3=LB(i) 

EIGEN=0,0 

9 SUf^.O 
DO 131^132, LB3^ 2 
IF(I--LB2) 10, 10,02 

10 IF(I-3)12,12,11 

11 SUM=STJM4GIF(M80)4i^.0^l(l-l)4Gl(l) 
M80==M80+1 
GO TO 13 

12 SUM=SlttW}l(l-2)44,04Gl(l=l)-»Gl(l) 

13 C ONTINUE 

AC9f M80 )=( SUM*DELR(m80) )/3 . 0 
EIGEN*EIGEN+AC9(M8o) 

IF(M80-M)li^,15,15 
lU LB2aUE342 

k8onm8o+i 

IS3=I3(k80) 

GO TO 9 

15 EIGEN^EIGEN*PIM 
$iX) EETUEN 
END 

* LIST 

* FORTRAN 

* LABEL 
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CHAIN LIM (2,B2) = Continued. 

SUBROUTINE COm' 

BBffiNSION 
COMMON 
EQUIVAIZNCE 

DO 11=13 N 

1 souf(i)^(i)/eigen 

iCT=ic?r+i 
DO ai^sl^MMl 

2 soppCi)=gp(i}/eigen 

EIGISWALUE CONVERGENCE CRITERION 

3 ERRr:ABSF((ElGEN=EIGENl)/EIGEN) 

if(err^espi)i5<, 15 s it 

POINTWISE CONVERGENCE CRITERION 

k TEST1=0.0 
TEST2=Io CE25 
DO 9I=1#N 
IF(S0U(I))9^9,5 

5 facs=g(i)/sou(i) 
IF(TEST1=FAC)6,7,7 

6 TESTlsFAG 

7 IF(PAC=TEST2)83959 

8 TEST2=FAG 

9 CONTINUE 
DO lUl=l„MMl 
IF(SOP(l))lU3lU3lO 

10 FAC=GP(I)/SCP(I) 

IF(TEST1=FAC)113 12, 12 

11 TEST1=FAC 

12 IF( FAC=TESI2 ) 133 1^3 ll^ 

13 TEST2=FAC 
Ih CONTINUE 

ERR=( TEST1=TES-T2 ) /TESTI 
IF(ERR=ESPl)l53l5,17 

15 ICT1=ICT1+1 
IF(lCIl= 2 )l 83 l 63 l 6 

16 N 100 =l 
GO TO 500 

17 ICT1=0 

18 if(ict=migt)i 93 19324 

19 NIOCK) 

IF(ICT^2)27327320 



SOURCE EXTRAPOLATION 



20 FA0=THEIA+1, 0 
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CHAIN UNK (2,B2) - Continued. 



DO 2 11=1, N 

21 SOU(l)=SOUP(l)*FAC-THETA*SOU(l) 

DO 221=1, MMl 

22 S0P(l)t=30PP(l)*FAC<-THETA*S0P(l) 

23 EIGEN1=EIGEN 
GO TO 500 

2k rF(MICT)l 6 , 16,25 

25 WRITE OUTPUT TAPE ITA0,26 

26 FORMAT (U 7 HO MAXIMUM NUMBER OF FLUX ITERATIONS EXCEEDED) 
N100=2 

GO TO 500 

27 DO 281 = 1 , N 

28 SOU(l)=SOUP(l) 

DO 291 = 1 , MMl 

29 SCP(l)=SOPP(l) 

EIGEN1=EIGEN 

500 RETURN 
E2JD 



* 

* 

* 



LIST 

FORTRAN 



LABEL 

SUBROUTINE CRIT 

DIMENSION 

COMMON 



EQUIVALENCE 

1 FORMAT (1^2H0 CELL) 

2 FORMAT (42H0 AXIAL) 

3 FORMAT (^3H0 RADIAL) 

4 FORMAT (61H+ CRITICALira EIGENVALUE 

IPOISON/ 6 OH COUNT REGION 

2 TI 0 N/IH Ilo,lPE20.5,n0,E19.5) 

5 FORMAT (IH lUO,IPE19.5) 

6 FORMAT ( 5 too MAXIMII4 NlHiBER OF CRITICALITY ITERATIONS 

7 FORMAT (43HO SEARCH FAILED - POISON BECAlffi NEGATIVE) 



THERMAL 
CROSS SEC 



EXCEEDED) 



SET UP CONTROL REGIONS AND CALCULATE ERROR 



IF(N5-2)8,8,11 

8 J=13+33*N5 
DO 91 = 1^,29 
J=J4-1 

9 L(I)=L(J) 
J=1154^o6*N5 
DO 101=64,70 
J=J4-1 

10 A(I)=A(J) 

11 W=EIGM-1.0 

err=absfCw) 



INTERMEDIATE PRINT 
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CHAIN LIMK (2,B2) - Continued. 

C 

IF(IPR)172,172,12 

12 SIM1=EIGEN*EIGEN2 

IF(H5"2)13,1^^,15 

13 WRITE OUTPVjT TAPE ITA0,1 
GO TO 16 

Ih ^^RITE OUTPUT TAPE ITA0j2 
GO TO 16 

15 l-miTE OUTPUT TAPE ITA0,3 

16 EBl=LBS(l) 

WRITE OUTPUT TAPE ITA0,4,I(ir2,SUMl,LBl,SIGPT(tBl) 
IF(n8-2)172,17,17 

17 DO 171I®2,N6 
J=I£S(I) 

171 V7RITE OUTPUT TAPE ITA0,5^ J,SIGPT( j) 

172 IF(ICT2-1)i8,18,19 

SET UP FOR FIRST ITE31ATION 

18 LBl^LBS(l) 

SGPT=SIGPT(IB1) 

C10=l,0 
ILKsO 
ICT3=1 
NSKP=1 
C3^1.0 

19 IF(EPR-ESP2)20j20,33 

20 N100=0 
GO TO 23 

CALCULATE NEl-J POISON VALUES 



21 DO 22I=^1,N8 
LB1:=I£S(I) 

22 SIGP(I£1)=C10^SIGPT(LS1) 

IF(N5-2)23,23^26 

STORE POISON VALUES FOR CELL OR AXIAL REGIONS 

23 w=1154i^06-5^N5 

DO 241=64^70 
J^.J+1 

24 A(J)«A(I) 

J=112 

DO 251®l4p29 
Jr-U+l 

25 L(I)=I{J) 

GO TO 500 

CALCULATE NEW VALUE OF SIGT FOR RADIAL CRITICALITY (N5=3) 
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CHAIN LIM - Continued. 

26 DO 32J=l5N0G 
LB1=I£S( 1 } 

I£2=l 

DO 3U=1?M 
IF(LB1-I)31,27,31 

27 SIGT( J)=SIGA( J>fDIF( I, j) 5^BUCK2 ( I, J)4SIGPT( I )*T( J) 
GO TO (28,29)3<J 

28 SIGT{I,J)=SIGT(I,J)4TRANS(I,1,2) 

29 I£2=I£2+1 
IF(LB2‘=N8)30^ 30^32 

30 LB1=LBS(LB2) 

31 CONTINUE 

32 CONTINUE 
GO TO 500 

C 

C TEST ira.IEER OF CRITICALITi' ITERATIONS 
C 

33 IF(lCT2=MICT2)35-,35<)3i^ 

34 X7EITE COTPUT TAPE ITA0,6 
N10a=2 

GO TO 500 

35 if(ict3“2)36,42,47 
C 

C FIRST CHOICE OF SEARCH PARAIffiTER 
C 

36 IF(¥)41,37,37 

37 IF(EIGEN-1^ 25 )38^ 38, 40 

38 C4«1.0/(l.OflO.O?^0 

39 C2=C3 

PSI2t=EIGEN 
ICT2=ICT2+1 
ICT3==IGT34-1 
GO TO 51 

40 c4=i.o/(i.o=w*(2. 62-50, 05^0 
GO TO 39 

41 C4s1.0-10,0^/EIGEN 
GO TO 39 

C 

C SECOND CHOICE OF SEAP.CH PARAl-lETER 
C 

42 11(03)36,36,43 

43 IF( 02)36,36,44 

44 (U1^-LCGF(C3) 

W2r=L0GF(C2) 

A1^(W2-W1)7(FSI2-E1GEN) 

B 1 =^^ 1 -=A 1 *-EIGEN 

FA'>A1+B1 

if(faC”88, 0 ) 45 , 45,36 

45 c4=expf(fac) 

46 C1=^C2 

PSIlePSI2 
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CHAIN LINK (2,-B2) - Continued. 



GO TO 39 
C 

C GENERAL CHOICE OF SEARCH PARAMETER 
C 

hi C0Nl=PSIl!sPSI2 
C0N2^C1»C2 
CON6 l:3C1^PSI1 
C0N4=PSI1-EIGEN 
C0N5=C1-C3 
C0N3"C0N6-C2*PSI2 
C0N6=C0N6<=C3*EIGEN 
DEI^CONl*CON5=CON^5fCON4 
IF(DET)U 85 U 2 ,ii^ 

U8 Alt=(CON3*GON5=CCN2^0N6)/DET 

Bi<=( coni*con6-con3*cowi^ ) /det 

B2=(C1=A1)#(PSI1‘^8i) 

CWA14B2/(1.0=B1) 

IF(c4-A1)50^50,U9 
h9 IF(C3“A1)U2, 46,46 

50 if(C3-A1)46,46,42 
C 

C TEST FOR NEGATIVE POISON 
C 

51 IF( 04)52,52,54 

52 IIX^^ILK+l 
ICT3^1 
C3=1.0 
LB1=I£S( 1 ) 

SGPT^-SIGPT(L31) 

ClO^l.O 

ICT2«ICT2-1 

IF(IIK=2)36,36s,53 

53 WRITE OUTPUT 'TAPE IIA0,7 
N1005;2 

GO TO 500 
C 

C CALCULATE NEVJ POISON RATIO 
C 

54 C12r^SGFT/c4 
IBlt^IBS(l) 

C10^-C12/SIGPT(LB1) 

C3^C4 

NlOO-’l 
GO TO 21 
500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE RING 
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CHAIU LIM f2oE2l Continued, 



C 



1 

2 

3 

k 

5 

6 

7 

8 

9 

10 



11 

12 



13 

lU 



15 



DIMENSION 

CCMION 

EQUIVALE2TCE 



FOEMAT (i 8H1 RADIAL REGI0Nl6,5I20/l0H AXIAL/llH REGION) 
FORMAT (28 h VaiER DISTRIBUTION) 

FORMAT (4th TRANSVERSE BUCKLING FOR AXIAL MAPPING) 

FORMAT (i 8 H pressure) 

FORMAT ( 18H enthalpy) 

FORMAT (19H FLa-J RATE) 

FORMAT (i8,6E20,5) 

FORMAT (i8j,6E20.5/E28.5,5E20.5) 

F0R1«1AT (3te6 THERMAL POISON CROSS SECTIOHS/lH ) 

FORMAT (I13^1PE20,5) 

MAXIAL=MAXIAL 



N=N 

IF(lTER=l)ll^ II5I6 
IF(ITA3)12^12^16 
SUM1=( 2 . 4048/Rt N ) )^2 
DO 13K®1,N0G 
DO 13J“1^MAXIAL,MAXI 
DO 13I=1^MRI 
BUCKCH(I,J.K)=SUM1 

iF(pcwi)i^i 4 , 15 

Fl^^l.O 
F2‘^0.0 
GO TO 16 



Fl--^,5 

F2-~'1.0-F1 



CALCULATE FLUX^VOLUME VHEIGHTING TERMS AND RADIAL Pa^ffiR DISTRIBU- 
TION 

16 IBls:l 

SUM5=^0.0 
DO 19Isl^MRI 
PaffiR(ljl)a^0,0 
L32=LB(I)-2 
DO 18K«1^N0G 
suia^^o.o 

DO 17J«LB1^IB2^2 

17 SUM1^SUM1+R(J)*PHI(JjK)+4,0*R(J+1)*PHI(J+1,K)+R(J+2)*PHI(J+2,K) 
AC3 ( I^ K)=SUM1*DELR( I )/3 . 0 

18 Pa/ER(Ijl)=PWER(l,l)fAC3(l,K)*VU(l,K) 

SUM5=SUM54POTER(I, 1) 

19 LBl=^LB(l) 

DO 20I~1^MRI 

20 POTER(lpl)=PCWER(l,l)/SUM5 
REGIONAL PJ^ER DISTRIBUTION 
IF(P0W1)21^21^23 
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CHAIN Lnnc (2,B2) » Continued. 



21 DO 22J=25MAXI 
DO 22l!T^l5MRI 

22 P-:^JER(I,J)=PCWER(I,1)*PCWER(I,J) 

GO TO 25 

23 SUM1=PCW1*CAREA 
DO 24i=1,MRI 

PavER( I,MAXIAL}=P(WER( I, l)*SUMl/RAREAf I ) 

DO 24j=2,MAXI 

24 Pa'7ER(l,j)=P0WER(l,j)*PafEIR(l^MAXIAL)/DZ(j) 

TEST POffiR DISTRIBUTION 

25 N101=0 
IB1=0 
LB2K) 

DO 30I«1,MRI 
K<=i®ING=I 

SUM1«ABSF((DU1^(K^ 1)/P0WER(K, 1) )-l. 0) 

IF( SUM1=ESP3 )27, 27 , 26 

26 NlOl^l 
LB1=1 

27 DO 29J“2^,MAXI 

SUM1=ABSF( (DUMMYfK, j)/Pa>7ER{K^ J) )-l. 01 
IF( SUM1-ESP3 )29^ 29, 28 

28 N101=l 
LB2=K 

29 CONTINUE 

30 CONTINUE 
IF(N101)31,31,38 

31 IF(N100)32,32,38 

CCmT®:GENCE SATISFIED 

32 DO 33K=1,N0G 
DO 33I=1,MRI 

33 vu(i,k)«vusig(i,k)/vu(i,k) 

34 CALL RING2 

WRITE OUTPUT TAPE ITA0,9 
IF(N5-^2)35,36,37 

35 WRITE OUTFJT TAPE ITAO, 10, (l,SIGPTC(i},l!3l,MCELt,) 
GO TO 57 

36 WRITE OUTPUT TAPE IIAO, 10, (I,SIGPTA(I),I=1,MAXIAL) 
GO TO 57 

37 WRITE OUTFJT TAPE ITAO, 10( I, SIGP (l ) , 1=1, MRING ) 

GO TO 57 

CONVERGENCE NOT SATISFIED 

38 IF(ITER=NP0(11))381,32,32 
381 GALL RINGl 

IF(IPR)39,39,4o 
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CHAHT LDIK (2 ,B2) = Continued, 



39 IF(I£1)45, 45,42 

40 WRIIE OOTPUT TAPE ITAO, 1, ( I, 1=1, 6 ) 

WEITE OUTPUT TAPE ITA0,2 

WRITE OUTPUT TAPE ITAO,T, (J,(P0WER( I. J), 1=1,6 ),J=2, MAXI ) 

TiTEITE OUTPUT TAPE I-IAO,3 

WRITE aJTPUT TAPE riAO,8,(j,((BUCKCH(l, J,K), 1=1,6), K=1,2),J=1,MAXI 
lAL) 

IF(Pan)39, 39,41 

41 WRITE aUPUT TAPE ITAO,4 

TOITE aOTFUT TAPE ITAO,8,< J, ( (PRES(l, J,K),I=1,6),K=1,2), J=1,^5AXIAL 
1) 

WRITE OUTPUT TAPE ITAC,5 

T7RITE OUTPUT TAPE rHAO,8,( J, ((EHTH(I, J,K),I=1,6),K=1,2), J=1,MAXIAL 
1) 

J=0 

miTE OUTPUT TAPE ITAO,6 

WRITE OOTFOT TAPE ITA0,8,J,{(FLCW(I,K), 1=1,6), K=l,2) 

GO TO 39 

42 IB2=1 
SUMl=OoO 

DO 43I=1,MRI 

Pa^ER(l, l)=Fl*PaJER(l, l)+F2*DUMMX( I, l) 

43 SUMl=SUMl+Pa-rER(l,l) 

DO 44I=1,MRI 

44 DUMMy(l,l)=Pa'JEB(l,l)/SUMl 

45 lF(paJl)46,46,50 

46 DO 49I=I£2,MRI 
SUM1=0, 0 

DO 4TJ=2,MAXI 

DUMMr(l, J)=F1*P=0WER(I, J)+F2*DUMMX( I, J) 

47 Smil=SUM14DUMMy(l,j) 

SUM1=DUMMY( I, l)/Sffi'Il 
DO 48 j=2,MAXI 

48 DUl«My(l,j)=SUMl*DUMt'K-(l,0 ) 

49 CONTINUE 
GO TO 500 

50 SUM2=POT1^CAREA 
DO 52I=IP2,MRI 

P»0WER(l,MAXIAL)=SUM2*DU^fl^n(l, 1)/RAREA( I ) 

SUM1=0,0 
DO 51J^^2,MAXI 

POlfflR( I, j)=( Fl*POl^ER( I, J)+F2*DUMMT( I, J) )*DZ( j) 

51 SUMl=SUM14P!mR(T,j) 

SUM1=PCWER( I, MAXIAL )/SUMl 
DO 52J=2,MAXI 

pcwer( I, j}=pa-raiR( i, -j)^:-sumi/dz( j) 

52 DUMMY(l,ji=Pa'JER(l,J) 

53 CONTINOE 

54 J=109 

DO 55I'^11A3 
J=J+1 

55 L(j)t-L(l) 
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CHAIN um (2,E2 ) - Continued, 



J<=i6t8 
DO 561=409 
cW+l 

56 A(J)=A(I) 

57 DO 58I=1^N 

58 S0UR(I)=S'0UP(I) 

DO 59I=1j.M 

59 sopr(i)£=sopp(i) 

500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE RINGl 
DIMENSION 
COMMON 
EQUIVALENCE 

C 

MRI=MRI 

N101=l 

C 

C CALCULATE FLUX GRADIENTS TO THE LEFT OF INTERFACES 

C 

DO 4J0G=1,N0G 
DO 4IREG=1,MRI 
LB2=LB(IREG) 

LB1=LB2=2 

J=0 

DO 1I=L81,LB2 
J=J+1 

1 DELT( J )=PHI ( I j JOG ) -PHI( I - 1, JOG ) 

DO 31=2,3 

DO 2J=I,3 

2 DELT(I, j)=DELT( 1=1, J)‘^DELT( 1=1, J-l) 

3 CONTINUE 

4 DFHO( IREG, JOG )=( DELT( 1, 3 )+DELT( 2, 3 )/2 . CH-DELT( 3 • 3 )/3 • 0)/DELR( IREG ) 
IF(MRI=2)11,5^5 

C 

C CALCULATE FLUX GRADIENTS TO THE RIGHT OF INTERFACES 
C 

5 DO 9J0G=1,N0G 
DO 9IREG=2,MRI 
LB1=LB(IREG-1) 

IB2=sIBl+2 

J=0 

DO 6I^IB1,LB2 

6 DELT( 1 , J )=PHI ( I+l, JOG ) -PHI ( I , JOG ) 

LB2=2 

DO 81^*2, 3 
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CHAIN LINK (2082 ^1 - Continued. 



DO 7t=l,IB2 

T DELT(I,J)=DELT(I-I,jfl)-DELT(I-I,j) 

8 LB2=»IB2-1 

9 DPHl(rREG, J0G)=(DELT( 1, 1)-DELT(2, 1)/2. 04-DELT(3. 1)/3. 0 )/dELR(IREG) 

COMMON TERMS FOR BU'CKLING 

RIGHT HAND SIDE OF INTERFAX 

DO 10I=2,MRI 
SUMl=RIHT(l-l,3)/2.0 
DO 10J=1,NOG 

10 ac4(i,j)=sdmi*dphi(i,j) 

DEED HAND SIDE OF INTERFACE 

11 DO 121=1, MRI 
SUM1=RINT(I,3)/2.0 
DO 12J=1,N0G 

12 AC5(l5J)=SUMl*DPHO(l,j) 

DO 13J=lpN0G 

13 AC5(MRI,J)=2.0*AC5(MRI,J) 

BUCKLING 

DO 19K=1,N0G 
DO 19J=2,MAXI 
IF(MRI-2)i4, 15,15 

14 BUCKCH( 1, J,K)=->AC5( 1,K)/AC3( 1,K) 

GO TO 19 

15 BUCKCHC 1, J,K)=-(DIFCH( 1, J,K)*AC5( 1,K)+DIFCH(2, J,K)*AC4(2,K) )/(DIFC 
1H(1,J.K)*AC3(1,K)) 

IF(MRi- 2 )l 8 ,l 8 ,l 6 

16 IB1=MRI»1 
DO 171=2, IBl 

17 BUCKCH(I,J,K)^(DIFCH(I-1,J,K)*AC5(I-1,K)+DIFCH(I,J,K)*(AC4(I,K)-AC 
15(I,K) )=DIFCH(I+1, J,K)*AC4(lfl,K) )/(DIFCH( I, J,K)*AC3( I,K) ) 

18 l!=MRI 

BUCKCH(I,J.kHdIFCH(T° 1,J,K)*AC5(I-1,K)4DIFCH(I,J,K)*(AC4(I,K)-AC 
15(l,K)))/(blFCH(l,J,K)*AC3(I,K) 

19 continit; 

c 

500 RETURN 
END 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTIKE RING2 
DIMENSION 
CCMION 
EQUIVALENCE 
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CHAH^ LIMK (2,B2) = Continued. 



C 

M=M 

N==N 

MRI^MRI 

C CALCULATION FOR ANSWER PRINTOUT OF RADIAL PARAMETERS 
C 

C PHl(N,l) - RADIAL FAST FLUX TRAVERSE OF THE REACTOR 

C PHI(N,2) - RADIAL THERMAL FLTJX TRAVERSE OF THE REACTOR 

C PO-JP(Nj1),PCWR(M,1) - POINTV7ISE RATIO OF FAST TO TOTAL PCWER 

C PCWP{N32),Pa^(M,2) - POINTWISE RADIAL PaWER GENERATION 

C Cl ° RATIO OF MAXIMUM TO AVERAGE THERMAL FLUX IN THE REACTOR 

C C2 - RATIO OF MAXIMUM TO AVERAGE PCWER DENSITY ACROSS THE CORE 

C 

FAC=OoO 

LB1=LB(MRI) 

DO 

IF(PHl(jj2)-FAC)2j2,l 

1 FAC==PHI(J,2) 

2 CONTINUE 

SUM2=3^ 1‘^1592$5*{HIWT(I®I, 3)^) 

SUM1=0.0 

LBl^l 

DO Ul=l,MRI 
I32 =LB(i)-2 
SUM3=0.0 
DO 3J®I31,LB2,2 

3 SUM3=»SUM3+R( J)*PHI( J, 2 )44. O^P.( J+l)*PHl( J+1. 2 )4R( J42 )*PHl( J+2 . 2 ) 
SUM1=SUM14SUM3*DELR( I )*PIM/ 3 . 0 

k LBlsLB(l) 

C1=FAC5^SUM2/SUM1 
LB2=N--2 
SUM3=0, 0 
DO 5J=LB1^IB2,2 

5 SUM3=SUM3+R( J)^PHI( J,2)4i^. 0^R( J+1)*PHI( J+1,2)4R( J+2)*PHI( J+2,2) 

SUM1=SUM1+SUM3 >^DELR(m)*PIM/3 • 0 
DO 6K=1^N0G 
DO 6J=1^NM1 

6 phi(j,k)=phi(j,k)/sumi 
c 

c POINTVJISE RADIAL PCWER DISTRIBUTION 
C 

FACl^i^O.O 

SIM1=0.0 

LB1=1 

DO 16I=1^M 
LB2=LB(I) 

CON1=0,0 
C0N2=0. 0 

IF(VU(I,1))8,8,7 ^ ^ 

7 C0N1<=^V0SIG( I;, l)/VU( I J 1) 

8 IF(VU( 1^2)) 10^10^9 
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CHAIN LINK (2oB2) - Continued, 



9 C0N2=VUSIG(I,2)/VU(I^2) 

10 DO lltjELBi,LB2 
C0N3<=C0N1*PHI( J, 1) 

PCWP ( J, 2 )«=C0N34C0N2*PHI ( J, 2 ) 

IF(PCWP(J,2))11,11,12 

11 PO^P(J5 1>^0.0 
GO TO Ih 

12 PCWP(jpl)^CON3/Pa>7P(j,2) 

IF(PCWP( J,2)-FACl)lU, Ih , 13 

13 FAC1=PCWP(J,2) 
lU CONTINUE 

SUM3=0. 0 
LB2=LB(l)-2 
DO 15J»IB1^LB2,2 

15 Sm-I3sSUM3+R(j)*F.:WP(oJ,2)44, 05f-R( J+l)*POWP( J+1,2)4H( J+2)*P0WP( J+2,2) 
SUM1=SUM1+SUM3^PIM^DELR( I )/3 . 0 

I31"LB(l) 

Paffi{l^ 1)=PCWP(LB1, l) 

POHE( I, 2 )*^PCWP( L31, 2 ) 

16 CONTINUE 
C2=FAC1^SUM2/SUM1 
DO 17I“1,M 

IT PCWR(I,2)sPCWR(I,2)/SUM1 
DO 18J=1^N 

18 PCWP(j^2)-Part’(j,2)/SUMl 

c 

C OUTPUT 
C 

UT format (T 3H1 solution for 

1 radial parameters) 

48 FORMAT (73HO RADIAL REGION GRO 

lUP 1 GROUP 2) 

49 FORMAT (150111^241 NIFSIGMA FISSI0NIPE25.4,El4.4/22H 

1 NUE39*4,E14,4/36H SIGMA ABSORPTION 

2E25.4^E14.4/4IH DIFFUSION C0EFFICIENTE20. 4,El4. 

34/28H BUCKLINGE33 • 4, E14, 4/49H 

4 SIGMA TRANSFER (GROUP 1 TO 2)E12,4) 

50 FORMAT (117H0 RADIUS NORMALIZED FLUX 

1 FLUX PCWER POWER FRACTION/ll 

28H (CMS) SOURCE TERMS GROUP 1 

3 GROUP 2 (TOTAL) (GROUP 1/T0TAL)/1H ) 

51 FORMAT (IH IPE14,5,5E20.5) 

52 FORMAT (6TH2 RATIO OF MAXIMUM TO AVERAGE THERMAL FLUX ACROSS TH 
IE CORE *sF8.5) 

53 FORMAT (67 HO RATIO OF MAXIMUM TO AVERAGE POWER GENERATION ACROS, 
IS THE CORE ®F8o5) 

54 FORMAT (3OHO CORE + REFLECTOR WEIGHT *--IPE12. 5,4H LBS) 

WRITE OUTPUT TAPE ITA0,47 

WRITE OUTPUT TAPE ITA0,48 
DO 55I«1^M 

WRITE OUTFJT TAPE ITA0,49,I,VUSIG(I, l), VUSIG(I,2), VU(l, l),VU(l,2), 
1SIGA( I, 1 ), SIGA( I, 2 ) , DIF( I, 1) , PIF( I. 2 ) . BUCK2( I, 1) , BUCK2( I, 2 ) , TRANS( 
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CHAIN LINK (2,B2) - Continued, 



21^1^2) 

55 CONTINUE 

WRITE OUTPUT TAPE IIAO;,U 7 
TOITE OUTPUT TAPE riA0,50 

DO 57I"1«M 

I£2e=5LB(l)-l 

VmiTE OUTPUT TAPE ITAO,5l5 (R( J),SOUP( j),PHl( J, l),PHl( J,2),PCWP( J,2 
l),PCWP(j^l),JsIBl,LB2) 

J=LB(I) 

R(J)==R(J) 

WRPTE OUTPUT TAPE ITA0,51^R(J),S0UP( j),PHl(j,l),PHl(j,2)';,Pa7E(l,^) 

i^powr(i,i) 

IF(m=I)5T,57,56 

56 IB1=LB(I)+1 

miTB OUTPUT TAPE ITAO,51yR( J)#SOPP(l),PHl( J, l),PHl( J,2),Pa^P( J,2) 
1,P-CWF(J,1) 

57 CONTINUE 

TTRITE OUTFOT TAPE ITAO,52,Cl 
WRITE OUTPUT TAPE I'IAO,53jC2 
IF(POM1)500,500,58 

58 WRITE OUTPUT TAPE ITAO, 5 U;,WATE 
C 

500 RETURN 
END 

* ursT 

* FORTRAN 

* LABEL 
SUBROUTINE CELAX 
DIMENSION 
C^OMMON 
EQTjrVALEDICE 
MAXIA=MAXIA 
IF(N7=2)l, 13^500 

C 

C FLUX-VOLUME V7EIGETTNG TER14S 

C 

1 DO 5K=1jNX 
LB1»1 
SUM2^0,0 
DO 3I=l5M 
IB2t=I£(l)°2 
SUMlt=0. 0 

DO 2Jr.IJBl^LB2,2 , , v / 

2 SUMl-SUMl-SR(j)*PHr( J,K)44. 0*R(U+1)*PHI( J+1,K)+R( J+2)*PHI( J+2,K) 
AC3(l5K)=<SUMl*DELR( l) 

SUM2=SUM24AC3(Ij,K) 

3 I£1=LB(i) 

DC 4I=1^M 

u ac3(I;K)*ac3(i,k:)/sum2 
5 CONTimiE 
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CHAIN LIM (2,52) ^ Continued. 



FLOX-YOniME WEIGHTED PROPERTIES 

TRANSA(MAXIAp 1, 2 )=0. 0 
DO 6K«1^NX 
VUSIGA(MAXIAjK)= 0. 0 
WA(MAXIApK)=0.0 

sigaa(maxia,k)=o.o 

6 difa(maxia,k)=o.o 

DC 10I=1,M 

TBANSA(MAXIAp 2)=0EANSA(MAXIAp 1, 2 )4AC3( 1 , l)*TRANS( 1, 1, 2 ) 

DO 9K=lpN*DG 
SDM1=0.0 
IF(vrj(lpE))8p8p7 

7 STJMl^VUSIG(IpK}/VJ{l,K) 

8 yUSIGA(liAXIApK)=VuSXGA(l4AXIApK)+AC3( I,K)*VUSIG(I,K) 

V0A( MAXIAp K)=TJA( MAXIA, K)4A03 ( I , K )*SUM1 

SIGAA(MAXIApK)=SIGAA('FiAXIA.K)4AC3( I, K)^^(SIGA( IpK)+SIGPT( I )*T(K) ) 

9 DIFA(MAXIAp K )=^DIFA( MAXIA, K)+AC3( I, K) /DIF( I, K) 

DIFA(MAXIApK)=l. 0/DI?A(MAXIA,K) 

10 CONTINUE 

CELL ONLY 

11 CALL CEIL 
IF(P'JWl)lUpll^pl2 

12 IF(MAXIA-MAXl05OOplUplJl- 

AXIAL ONLY 

13 CALL AXIAL 

SOURCE GIESS FOR NEXT ITEPATION 

14 J=350+Lo6*N7 
DO 151=1, N 
J«J+1 

15 A(J)=S0I3P{I) 

J«=l4-514406*N7 
BO l6l£=l,M 

16 A(J)=S0PP(I) 

500 PETURN 
END 

* LIST 

* FORTRAN 

* LAPEL 

SUBR OUTINE CELL 
DIMENSION 
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CHAIN LIM (2,h2) - Continued. 



C'OMfiON 

EQOTVAUESrCE 

MHIN^METN 

MAXIAoMAXIA 

IF(Pan)l,l,3 

ZERO Fa-TER CALCULATION CELL 

1 DO 2J=2,MAXI 

TRAWSA( J, 1, 2 )<=TRANSA(2, 1, 2 ) 

DO 2K=1,NDG 

VUSIGA( J, K)=TJSIGA( 2, K) 

VUA(J,K)=VUA(2,K) 

SIGAA( K)=SIGAA( 2,K) 

DIFA(J,K)<=DIFA(2^K) 

DO 2I=1,MRI 

2 DIFCH( Ip C. K)=DIFCH( 1, 2,K) 

FO TO 500* 

POLYNCMIAL FIT FOR HEAT GENERATION RATE ACROSS THE FUEL TUBE 

3 LB1«LB(2) 

LB2=LB(3) 

DO 5I“1,5 
SUM1=0.0 
SUM2^.0 
Js=0 

DO UK=Iiil,LB2 

JrsJ-J-l 

SUM1e5SuM14PHI(K, i)*'j(i, j) 
k SU142*SUM2«SPHI(K;, 2 )*U( I, J) 

5 AMAT(I^6)=SUM1*YGSIG{3, 1)/W(3« 1;-}SUM2*VUSIG(3,2)/VU( 3,2) 

DO 8i=1j,5 

AMAT( 1% 6 )=AMAT( Ip 6) /MAAli I, I ) 

K=1 

6 IF(K"I)7,8,8 

7 AMAT( I, 6 )«=>AMAT( Ip 6 ) -AMAT( I j k)*amat( K, 6 )/AMAT( I, I ) 

E«K+1 

GO TO 6 

8 CONTINUE 
DO 111=1,5 
J«6-I 
K=J+1 

BMAT(MRINjMAXIA, j)«amat( j, 6 ) 

9 IF(K-6)10,11,11 V , V , X 

10 bmat(mrin,maxia, j)=bmat(i®in, maxia, j)«amat( j , k)*bmat(mrin, maxia, k) 

K=K+1 
GO TO 9 

11 CONTINUE 
DO 121=1, U 

12 term(mrin,maxia,i)=o.o 
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CHAIN LIUK (2jB2) - Continued. 



LB2=l'fLB(3)“LB(2) 

DO 13K=1,5 
SDM>K+1 

STJM1=MAT( MRIN,MAXIA, K)*U( K+2, LB2 ) /SUM3 
SDM2=BMAT(MRIN,MAXIA,K)*U(K+2, 1)/SUM3 
ierm(meih,maxia, i)=term(mrin,maxia, 1)+SUM1 

lERMf MRIN, MAXIA, 2 )-TEFM( MEIN, MAXIA, 2 )+SUlvI2 
JERM(MRIN,MAXIA, 3)=TERM(MRIN,MAXIA, 3)+SUM1/SUM3 
13 TEIRM(^®IN,MAXIA,i^)-TERM(MRIN,MAXIA,l^)+SUM2/SUM3 
SUM1=PIM*'(TERM(MRIN,MAXIA, 1)-TERM(MRIN,MAXIA,2) ) 
DO 1UK=1,4 

lit- !TERM(MRIN,MAXIA,K)=TEHM(MRIN,MAXIA,K)/SUM1 
DO 15K=1,5 

15 BMATfMP.IN,MAXIA,K)«BMAT(MRIN,MAXIA,K)/SUMl 
iF(iiA3)i6, 16,500 

16 IF( ITER- 1)17, 17,500 

FIRST ITERATION CELL WITH Pa-rER 

17 DO 201=1, MRI 
DO 18K=1,1^ 

18 TERM(I,MAXIA,K)=TERM(1,I4AXIA,K) 

DO 19K=1,5 

19 BMAT(I,MAXIA,K)=BMAT(1,MAXIA,5) 

DO 20.J=1,NX 

20 DIFCH( I, MAXIA, J)=DIFCH( 1, MAXIA, J ) 

500 RETURN 
END 



IIST 

FORTRAN 

LABEL- 

SUBROUTINE AXIAL 
DIMENSION 
COMMON 
EQUr\TAIENCE 

MAXIAI^^MAXIAL 
ICENT={ 14MAXIAL) /2 
McM 

lffiIN=MlIN 
MAXI=MAXI 
IF(lTER-l)l, 1,5 

1 IF(ITA3)2,2,5 

INITIAL SET UP 

2 H=RINT(MAX3AL,2) 

BUCK2R( 1, l)=( 3 . iU159265/h)«-^ 
DO 3J=1,N 
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CHAIN LIM (2,B2) = Continued. 

3 APa^P(l,j)=0.0 
DO 

U APCWE(l,l)=0.0 
H=RTNT(MAXI,2)-RINT( 1,2) 

C 

C STORAGE FOE RADIAL CALCULATION AND GROUP 2 BUCKLING 
C 

5 C1«SQRTF( DIF( 1, 2 )*SIGA( 1, 2 ) ) 

C2=SQRTF( DIF( M, 2 )*SIGA(M, 2 ) ) 

C3“DIF(TCENT,2)*( ( 1. 0/Cl)+( 1. 0/C2) ) 

BUCK2R(MRIN,2)=( 3. 14X59265/(H-K:3) 

TRANSRCMRIN, 1, 2 )=rTRANS( ICENT, 1, 2 ) 

DO 6Kr=l,N>0G 

VUSIGR(MRIN,K)=VUSIG( ICENT, K) 

VT.'Rf 2®IN,K)n^V'J( ICENT,K) 

SIGAR(jMRIN,K)=SrGA( ICENT.K) 

6 difr{mrin,k)^::dif(i:gent,k) 
c 

C NORMALIZATION, PCH'/ER, AND FLOX*DIFFUSION 
C 

DO 10K=1,N’X 
SUM2=O,0 
DO 8i=2,MAXI 
SUM1=0,0 

LB2«LB(I).=2 
DO 7J"i£l^LB2,2 

7 SUMl=SUM14PHl(C'pK)‘:J+. O^^PSl( J+l,K)*PEl( J+2,K) 
S*JM1=SUM1*DELR( I ) 

AC3(I,K)=S0M1 

8 Sl3!42=SUM2-fSlTMl 
DO 91=2, MAXI 

9 AC3^I/K)=^AC3(l,K)/smi2 

10 saj(K)«SUM2 

SOU( 2 )=^S0U( 2 ) /SOU( 1 ) 

SOU(l)a3l.O 
SUM1=^0,0 
DO 12I=-2,MAXI 
PC^JER(MRIN,I)=0.0 
DO llK=l,NaG 

Pa^ER( MRIH, I Ot7ER(MRIN, I )'JAC3 ( I , K )*VU( I , K )*SOU( K ) 

11 DIFCH(MRrN,I,K}=^AC3(l,K)*DIF(l,K) 

12 SUM1=SUM1+PCWER(MRIN,I) 

SUM2=SUMl/3. O 

IB1=1 

DO 14I=1,MAXIAL 
I£2«LB(I) 

SUM3=W(l,l)/SUM2 
SUM4 =vU(I, 2)/S-UM2 
P 'AM>(MRIN, I )==P0MER(MRIN, I ) /SUMl 
DO 13J=LB1,LB2 
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CHAIN LINK (2,B2) - Continued. 



13 APCWP(MRIN, J)=PHI( J, 1)*SUM3+PHI( J,2)*SIJM4 
APOTRCmRIN, I )=:APOWP( MRIN, LB2 ) 

14 LB1=LB2 
IF(ITER-1)15,15,500 

15 IF(HP0(2)H65 16,500 

16 IF(MRI-2)500,17,17 

FIRST ITERATION 

17 DO 181 = 2 , MRI 

TEIANSR(I, 1,2)=TRANSR( 1, 1,2) 

DO 18K=1,N0G 

VITSIGR( I^K)=VUSIGR( 1,K) 

VDR(I5K)=VUB(1,K) 

SIGAR(I^K)=SIGAR( 1;,K) 

difr(i^k)=difr(i,k) 

BUCK2R( K)i=BUCK2R( 1 ,K) 

DO 18J=2,MAXI 

18 DIFCH(I 5 J,K)=DIF'CH( 1 ,J,K) 

DO 2U=2,MRI 

DO 19C=1,N 

19 APa7P(l,j)=AF0WP(l,j) 

DO 20J=1,M 

20 APOTR(IjJ)=APCWR(1,J) 

21 CONTIlfJE 

DO 22J=2,MAXI 
DO 22I=2,MRI 

22 Pa7EE(l„j)~Pa^EE(l,j) 

500 RETURN 
END 



* 

* 

* 



LIST 

FORTRAN 

LABEL 



SUBROUTINE ANPPAX 
DIMENSION 
C<M50N 
EQUIVALENCE 

1 FORMAT (16H0 

2 FORMAT (16H3 

3 FORMAT (60H 
lONE =F7.4/50H 
211 . 4, 7 H BTU/HR/// 69 H 
3 ORDER POLYNOMIAL FIT OF/ 62 H 



RADIAL ZONEI 2 ) 

RADIAL Z0NEI2) 

FRACTION OF REACTOR POTER GENERATED IN THIS Z 
AVERAGE FUEL ROD PaiER GENERATION RATE =1PE 
NORMALIZED COEFFICIENTS OF FOURTH 
RADIAL HEAT GENERATI 



40N across the FUEL TUBE/ 7 OH 

52 3 

4 FORMAT (IH I7,IPE15.4,4e13.4) 

5 FORMAT ( 63 H+ 

1 RESULTS/73H AXIAL INLET 

2 0UTLET/72H ZONE 



EXPONENT 0 1 

4/IOH AXIAL/9H zone) 

AXIAL THERI.:ODYNAiac/HEAT TRANSFER 



SIDE 
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CHAIU LIMK (2,32) = Continued, 



(2H: 1PE19,4j,30H 
(2H0 l6pFll.l,31H 
(IB F 18 . 1 , 32 H 
P18,1,3TH 
1PE20,4,3UH 



(IB 

(iB 



lPE20.4,3i^H 

Pl 8 ,lp 38 B 

IFE20.1)-,3^H 



6 POBMAT 

7 FOR14AT 

8 FOEMAT 

9 FORMAT 

10 FCiRMAT 
1 

11 FORMAT (IE 

12 FORMAT (IH 

13 FORMAT (IH 

14 FORMAT (53H 
1.1, 6h deg F) 

lUl FORMAT (53H 
1.1, 6 h deg F) 

15 FORMAT (U2H 
lU/HR) 

16 FORMAT (56h1 
is) 

17 FORMAT (63HO 
1 DENSITY/62H0 
2U/HR/FT)) 

18 FORMAT (is ) 

19 FORMAT (IS 0FF20.55lPE4l.lv) 

MAXIAL-^MAXIAL 

IP(MRriI=l}20,20,32 



SIDE) 

FLO^ RATE (EB/HR)E24.4) 
PRESSURE (PSIA)F23.1) 
EMTHALPy (BTU/U3)F22.1) 

COOLANT TEMPERATURE (DEG F)F17.1) 
HEAT TRANSFER C0EFFICIENTE20. 4/54h 
(BTU/HR/P r?^/(DEG P))) 

CRITICAL HEAT FLUX RATIDE20.4) 
CLADDING TEMPERATURE (DEG F)F16.1) 
HEAT FLUX (BTU/HR/FT**2)E20. 4) 
MAXIMUM MID-ZONE FUEL TEMPERATURE,' «F8 

A'TERAGE MID-ZONE FUEL TEJ-IPERATURE =F8 

AXIAL ZONE POWER =IPE11.4,7H BT 

POINTWISE AXIAL HEAT GENERATION RAT 



DISTANCE FROM 
ENTRANCE (FT) 



PO'lER 

(BT 



FIRST TIME THROaGE THE SJBROUTINE 



20 ISlol 

DO 22I=1.MAXIAL 
IB2=IM'.’I) 

DO 2ir~Lei,LB2 

21 EI{-JH 3 . 2808 E- 2 >-RA{j) 
RI(‘IB2)=^5I(I32) 

22 IB1=XB2+1 



HEAT TRANSFER C OEEFICIEHTS 

LB2^'3“NP0(3) 

DO 27F=1,2 
C(K)r=PIM*RHTR(E) 

DO 26I=»1,MRI 
IF(NP0(4).^I)24,23,24 

23 IFi.K-.IB2)24,26,24 

24 DO 250'“2,MAXI 

25 HTRCi, J.E) r=T-CFo/( RHIE( k)*( mR( I , J,K) -HT( K) ) ) 

26 CONTINC^ 

27 OOiiTOINUE 
if(np’ 0 (i)) 30, 30,28 

28 DO 29r-:^,MAXI 
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CHAIN LIM (2,32) - Continued. 



C 

C 

C 



DO 29I=1^MRI 

29 FBAC(lsJy.l,0~FBAC{l.j) 

30 ICT=4 

IF(MAXIA1-4)31^31^32 

31 ICT=5 

PRINTOUT OF AXIAL RESULTS 



32 

33 



34 

35 



36 

37 



38 

39 

40 



DO 33I=25MAXI 

AC3( T, 1)=( 1 o 0-PRAC(MRINp I ) )*Pa'TE]R(MRIN^ I )/C( l) 

AC3 ( I5 2 )=FRAC(MRIN5 I )*PaflSR(MRIN, I )/C( 2 ) 

ACi( I )=DZ( I )*p imRimWs I ) 

^JRITE COTPUT TAPE ITAO^l^MRIN 

VJRITE OUTPUT TAPE ITA0^3^Pa•7M(^mN, 1),PCWER(MRIN,MAXIAL) 
^•JRITE OlHPUT TAPE ITAO,4(OV (BMAT(MRIN,J^I), 1=1,5), J=2,MAXl) 
WRITE COTP'OT TAPE ITA0,1,MRIN 
\miTE OUTPUT TAPE ITA0,5 

raiTE OUTPUT TAPE IIA0,6, (FLO^CMRIN,!), 1=1,2) 

DO 38J=1,MAXIAL 
IF(J.IGT)35,34,35 
I^RITE (XJTFUT TAPE ITA0,2,lffiIN 
TOITE aiTPUT TAPE ITA0,5 

WRITE OUTFJT TAPE riAO,T,J,(PKES(MRIN,J.l), 1=1,2) 

WRITE OUTFJT TAPE riA0,8, fENTH(MPIN, J,l),I=l,2} 

^^RITE anPUT !DiPE ITA0,9, (TEMC(MRIN,J,I),I=1,2) 
raiTE OUTPUT TAPE ITA0,11,(DNB(MRIN,J,I},I=1,2) 
IF(j-1)38,38,36 
IF( J--MAXIAI)37, 38, 38 

^^TE OUTPUT TAPE TIAO, 10, (HTR(MRIN, J,l),I=l,2) 

WRITE OUTPUT TAPE ITA0,12,(TEMW(MRIN,J,I),I=1,2) 

T^TRITE OUTPUT TAPE ITAC, 13, (AG3(J,I), 1=1,2) 

WRITE OUTFIT TAPE i'TAO, 14,TPMX(MRIN,I) 
raiTE (JUTFJT TAPE ITAO, l4l,TFBAR(MRiN,l) 

WRITE OUTPUT TAPE ITAO, 15,ACl(j) 

CONTINUE 

C1=P0WPS(MRISI,MAXIAL) 

DO 39I==1,NAXIAL 

AP OWP ( MPIN, I ) =AP .OHP ( MBIN, I ) ^-G 1 

DO 40I=1,MAXIAL 

APa7R(MRIN, I )=AP'a-7Rf MRIN, I )'»C1 

WRITE OUTPUT TAPE ITA0,l6 

WRITE COTPUT TAPE ITA0,1,MRIN 

WRITE OUTPUT TAPE ITAO, 17 

LB1=1 



DO 4n*t^l,MAXIAL 
I£3=ISA(l)=.l 

WRITE OUTFOT- TAPS rTA0,l8 

WRITE OUTPUT TAPE ITA0,19,(EI(I),AP0WP(MRIN, j), J=LB1,LB3) 
I£l!^IM(l) 

1-miTE OUTFJT TAPE ITAO, 19,RI{LB1),AP0WR(MRIN,I) 
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CHAD? LIMK (2,B2) - Continued. 



in CCMTMIE 
500 RETURN 
E3TO 



t 





APPENDIX H 



INSTRUCTIONS FOR USING THE PROGRAM 



H,1 General 

Fixed point data is read into the machine by using a dummy one- 
dimensional matrix referred to as the L-matrix. Fixed point data 
specifies such information as the number of space points in the 
calculations, the nvimber of reactor subdivisions, and other options 
available to the programmer. 

Certain limitations are imposed on the fixed point input which 
are built into the program and which the programmer cannot change. The 
maximvim n\miber of regions is 7, the maximum number of space points is 
101, the number of energy groups is 2, and the number of downscattering 
groups is 1. Also, certain specifications are preset as regards the 
flux geometry and bovindary conditions. These specifications are: 



Type of 




Boundary Conditions 


Calculation 


Geometry 


Origin 


Edge 


Cell 


Cylindrical 


Zero Current 


Zero Current 


Axial 


Plane 


Zero Flux 


Zero Flux 


Radial 


Cylindrical 


Zero Current 


Zero Flux 



The L-matrix is initially set equal to zero except for certain addresses. 
Where these non-zero ntimbers occur is noted in the section "Fixed Point 
Addresses", 

Floating point data is read into the machine by using a dummy one- 
dimensional matrix known as the A-matrix. Floating point data specifies 
such information as the geometrical dimensions, nuclear properties, and 
heat transfer and power parameters. The IBM 7090 stores information in 
col’jmn fashion such that when a two-dimensional matrix is specified by 
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the indices (I,J), the index to the left is the most rapidly varying. 
For example, if one considers a two-dimensional matrix B(I,J) and 
assumes that the point is located in the A-matrix at A (3^5), 

then the point B(2,1) is located at A(3^6), B(3,1) at A(34?), etc. 

As pointed out, the maximum number of regions is 7 and the number 
of groups is 2. Where the indices (I,J) refer to a nuclear property, 
the first index (i) denotes the regional position and (J) the group, 
number. For the B-matrix considered above, the address for the point 
B(1,2) falls at A(352) and E(7,2) at A(35*^\ I" the number of 
regions to be used is less than 7, the address for the ooint B(1,2) 
must always fall at address A(352), regardless of hovr many regions 
are specified. The difference between Group 1 and Group 2 addresses 
is always equal to 7, regardless of hov; many regions are used. 

To point out how this information is used, consider the diffusion 
coefficient for cell properties, which is denoted by the symbol D'^(I,J) 
in the section "Floating Point Addresses' , In this section the address 
for D°(1,1) is A(508). Tne addresses for each of the cell diffusion 
properties is shown below. 







A (508) 


D‘^(1,2) = 


A(515) 


(2,1) 


= 


(509) 


(2.2) 


(516) 


(3.1) 


= 


(510) 


(3.2) 


(517) 


(4,1) 




(511) 


(4.2) 


(518) 


(5.1) 




(512) 


(5.2) 


(519) 


(6.1) 




(513) 


(6.2) 


( 520 ) 


(7,1) 


= 


(514) 


(7,2) 


(521) 


Ilie A-matrix 


is 


initially set equal 


to zero except for certain 



addresses. Where these non-zero numbers occur is noted in the section 
"Floating Point Addresses". 
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Ho 2 Data Input 



There are five card types necessary to solve a problem. For problems 
other than the first on the same run, only one each of the cards indicated 
below is necessary. The data from one problem is stored and not changed 
within the machine, except as noted for L(55) and L(121), Ihis greatly 
reduces the input time for data and cuts down on the number of cards that 
must be punched. These cards must appear in the order indicated below, 

1 e Program Control Card and Steam Table Data, 

a. First Problem in a Run, The first card following the "• DATA" 
card must contain a non^zero digit punched in Column 2 and 
a decimal point in colimm 3« This causes the program to 
enter a subroutine which sets up the computer and reads in 
529 cards containing the steam properties necessary for prob- 
lem solution. The card, which follows the steam table data, 
contains the maximum allowable DNB-ratio and the nozzle effi- 
ciency, The steam table data cards should not be changed un- 
less the person making the change has thoroughly studied 
subroutine THERMO in the program. To specify the DNB-ratio 
or nozzle efficiency, the information is placed in the com- 
puter in the following manner: 

DNB-Ratio Nozzle Efficiency 



Colmn 


Colxmn 


1 Blank 


13 


Blank 


2 0 




0 


3 Decimal Point 


15 


Decimal Point 


: Any Digits 


• 


Any Digi'ts 


12 


24 
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b. Problems in a Run other than the First. Unless it is 

desired to change either the DNB-ratio or nozzle efficiency, 
this card is blank. If changes in either of these quantities 
is to be made, the procedure for the first problem in a run 
must be followed and the complete steam table data must be 
read in again. 

2. Alphanumeric Data. 

Punch the digit 1 in column 1. In the remaining 79 colvimns 
on the card, punch any desired alphanumeric information. 

The information punched on this card will head the print- 
out of the data that is supplied to the program. 

3* Fixed Point (L-Matrix) Data. 

The punches on this card must follow the format given below. 
If this form is not followed, an error signal will be printed 
and the problem will be terminated. 

Column Information 

1 Number of pieces of L-matrix data on the card 

2 Left blank unless it is the last card of fixed 
point data, in which case the number 1 is punched 
in this column 

3“12 Relative address of the first piece of data on 

the card. All data following the first piece of 
data must be stored consecutively. For instance, 
if L( 152 ) is the first piece of data, then the 
digit 1 is pvinched in column 10, the digit 5 i° 
column 11, and the digit 2 in column 12, The last 



digit of the address must appear in column 12. 
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Colimin 



Information 



13=24) 

) 

25=36) 

) 

37-48) 

) 

49 - 60 ) 

) 

61 - 72 ) 


Fixed point L=raatrix data with between 1 and 5 
pieces of data on the dard, according to the 
contents of column 1 on the card, with the address 
of the contents of columns 13=24 determined by 
column 3-12, As was the case for colxanns 3-12, 
the last digit for each of the numbers punched 
in the different fields must lie in the last 
column of the field. 



4, Floating Point (A-Matrix) Data, 

The punches on this card must follow the format given below. 
If this form is not followed, an error signal will be printed 
and the problem will be terminated. 



Column 


Information 


1 


Number of pieces of A-matrix data on the card. 


2 


Left blank unless it is the last card of float- 
ing point data, in which case the number 1 is 
p\xnched in this column 


3=12 


Relative address of the first piece of data on 
the card. The same restrictions apply for the 
columns as were pertinent to column 3-12 for 
L-matrix data 


13-24) 

) 

25 - 36 ) 

) 

37-48) 

) 

49 - 60 ) 

) 

61 - 72 ) 


Floating point A-matrix data with between 1 and 
5 pieces of data on the card, according to the 
contents of column 1 , with the address of columns 
13-24 determined by the contents of columns 3-12. As 
an example of how floating point data is fed into 
the machine, assume that the number 0.003456? is to 
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read into columns 13-2U. In the usual 




representation. 


this can also be written as 




3^k^67 


”3 

X 10 = 


0.34567 X 10"^. In the E-type 




forma t 


used, the 


1 number would be punched on the 




card as 


1 follows: 




Column 


Digit 


Column 


Digit 


13 


Blank 


19 


6 


Ik 


0 


20 


7 


15 


• 


21 


E 


l6 


3 


22 


- 


17 


4 


23 


0 


l8 


5 


2k 


2 



5. Alphanumeric Data. 

Punch the digit 1 in coliimn 1. In the remaining 79 columns 
on the card, pxinch any desired alphanumeric information. 

The information punched on this card vill head the print- 
out of the problem solution. This card can be a duplicate 
of card type 2. 

H.3 Rixad 
XXX Quantity 

k'J Number of cell regions; must be set equal to 7 

it-8 Interface numbers of cell boundaries; must be old and in ascend- 

ing order; maximum nvunber of points in region 3 is 21; miniumijm 
number of points/region (in any region) = 7; number of interface 
numbers indicated must equal 7 to agree with L(i»-7); last interface 
number cannot exceed 101, the maximum number of space points 




allowed 
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XXX 



Quantity 



55 Numter of control regions for homogeneous poison search if search 
is made on cell calculationsj if L( 55 ) = 0, program interprets 
poison as being in all cell regions and sets L( 55 ) = L(^ 7 ) and 
puts poison section of region 1 into all cell positions. 

56 Control region numbers for cell search; if L( 55 ) is non-zero, 
number of control regions must agree with L(55)j control region 
numbers must be in ascending order; nmber of highest control 
region cannot exceed L( 47 ) 

65 Convergence testing method for solution of flux difference 

equations in cell calculations; if L(65) = 1, test is made on the 
integrated value of kgff between two successive iterations; if 
L( 65 ) = 2, test is made on the variation of the pointwise source 
terms between two successive iterations; L(65) = 2 is the more 
stringent testing method; program sets L(65) = 1 initially 

80 Number of axial regions; minimum number is 3 i maximum number is 7 

81 Interface numbers of axial bovindaries; odd and in ascending 
order; minimum number of points/region = 7| nijmber of interfaces 
must agree with L(8 o); last interface number cannot be greater than 
101 

98 Convergence testing method for flux iterations for axial 

calculations; see L( 65 ) 

113 Number of radial regions; minimum number is 2 , maximxim mmber 
is 7 

11 4 Interface numbers of radial boundaries; odd and in ascending order; 
minimum number of points/region =7; number of interfaces must 
agree with L(ll3); last interface number cannot be greater than 101 
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XXX Quantity 

121 Numlier of control regions for homogeneous search if search is 
made in radial regions; same restrictions as for L(55) except 
they are applied to L(ll3) 

122 Control region numbers for radial search; same restrictions 
as for L( 56 ) except as they apply to L(ll3) and L(l2l) 

129 Maximum number of iterations allowed for flux convergence; 
program sets this number to 50 initially 

130 Maximum number of iterations allowed for criticality con- 
vergence; program sets this number to 15 initially 

131 Convergence testing method for flicc iterations for radial 
calculations; see L(65) 

132 Criticality master search control number; if L(l32) « 1, search 
is made on cell calculations; if L(l32) = 3# search is made on 
radial calculations; L(132) must be specified for the problem. 

133 Maximum number of iterations allowed for thermodynamic/heat 
transfer calculations; program sets this to 25 initially 

13^ Intermediate printout control; if L(13^) - 0, no printout of 
intermediate results as the calculation proceeds; L(l3^) = 1 
gives intermediate printout of results; program sets L(13^) = 1 
initially 

152 Inlet flow side designation; if L(152) « 0, flow enters inside 
the fuel tube; if L(l52) = 1, flow enters outside the fuel tube; 
program sets L (l52) = 0 initially 

153 Blocked flow control number; if L(153) = 1^ a coolant channel is 
blocked for flow; if L(l53) = 0, this option is not used; program 
sets L(153) ® 0 initially 
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XXX Qiaantity 

15^ Flow path which is blocked; if L(154) = i, inlet flow is blocked; 

if L(15U) = 2, outlet flow is blocked; if flow is blocked; L(153) 
must be non=zero^ program sets L(15^) as o initially 
155 Radial region in which flow is blocked; L(l55) must be less than 
L(113); if flow is blocked, L(153) and L(15^) must also be non- 
zero; program sets L(l55) = 0 initially 
162 Maximxan number of radial power sweeps; for a zero-power 

calculation, this number should be about 10; for a calculation 
with power, the program will be in group 8 when 5 minutes of 
computer time has elapsed; convergence appears to be relatively 
fast to the final steady state power distribution but it is not 
achieved within 5 minutes; to obtain more results than those 
given by setting L( 13 U) 1, set L(i62) £= 5 or 6 to get an answer 

printout, which will also inclxide a signal to indicate that final 
convergence has not yet been achieved; program initially sets 
L(i 62) e 5 

H.4 Floating Point Addresses A(XXX) for Card Type 4 
XXXX Quantity 

445 p^(l,J) - fission spectrum; program sets fission spectrum equal 

to 1.0 for energy group 1 and 0.0 for energy group 2 for all 7 
values of I; if this preset condition does not satisfy the 
programmer's requirements, change the values such that there is 
no regional variation for either energy group. 

Nuclear Macroscopic Cell Properties (Superscript c) 

459 (I,J) in cm“^; region 3 contains the fuel so addresses 

A(46i) and A(468) must be non- zero 
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XXXX Quantity 

^73 region 3 contains the fuel so addresses A(ii- 75 ) 

and A(it- 82 ) must he non-zero 

^7 (I) in cm dovmscattering cross section for each region 

from group 1 to group 2 ; no information is necessary for regions 
1 or 5 since these are coolant regions and properties are 
generated from nuclear microscopic coolant input 
^ 9 ^ 2 .^ (ijj) io cm“^; absoi-ption cross section vhich does not include 

removal hy dcwnscattering for group Ij see A( 487 ) 

508 (l^J) in cm; see A(U87) 

522 (l) in cm”^j thermal poison cross section (group 2 ) for 

each of the regions 

529 T (J)} ratio of poison cross section in group J to poison cross 

tr 

section in group 2 ; independent of region 
Nuclear Macroscopic Radial Reactor Properties (Superscript r) 

The properties of the radial reflector must he specified. Dimensions 
used correspond to those used for corresponding cell properties. If, for 
example, the number in L (II3) is 6, corresponding to 5 radial core sub- 
divisions, plus a radial reflector, the addresses for the radial reflector 
absorption cross section are A ( 133 - 1 ) for group 1 and A (1318) for group 
2 c Group 2 addresses always are 7 greater than group 1 addresses for the 
same property, regardless of how many radial regions are specified in L ( 113 )* 

1299 Zs 
1306 Za (i^J) 

1320 (I,J) 

1331^ £p (I) 

I3UI (J) 

13^3 ^ffJ program sets this n\imber to 1.0 initially 
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Nuclear Microscopic Water Properties (Superscript w) 

Cross sections for all coolant properties are specified in nai /mole- 
cule. The progx-^am then internally generates macroscopic properties for the 
inlet and mixing plenums plus cell regions 1 and 5 » Index J denotes group 

number, of which there are two. 
w 

1719 : downscattering cross section from group 1 to group 2 

s 

1720 absorption cross section 

1721 transport cross section 
Convergence Testing and Extrapolation 

Satisfying convergence criteria for criticality and power distribution 
calculations is basically dependent on the result of flux calculations. To 
make physical sense, the convergence limit for flux calculations should be 
smaller than for either criticality or power distribution. Inasmuch as the 
same convergence criterion is used for heat transfer and power calculations 
and that the values of viscosity, thermal conductivity and surface tension 
of water are calculated internally from the results of a polynomial fitting 
of their respective properties, a convergence limit of less than 0.01 for 
the power distribution increases the running time for the program without 
any resulting increase in accuracy. 

1724 Convergence limit for flux calculations 

1725 Convergence limit for criticality calculations 

1726 Convergence limit for power/heat transfer calculations 

1727 Extrapolation factor for flux calculations 5 program sets this 

value to 0.8 initially, a value which seems to work quite 
satisfac torily 

Geometrical Inputs (All dimensions are in cm) 

1?40 Distance from the origin of cylindrical interfaces for cell calcu- 
lations? seven increasing values must be specified 
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17^7 Distance from the bottom of the inlet pleniim of interfaces which 
subdivide the reactor into axial regions; distances must be 
specified in increasing value and the number of values given must 
agree with the contents of L (80)j the last value given is the 
reactor height 

175^ Distance from the origin of cylindrical interfaces which sub- 
divide the reactor into radial regions; distances must be 
specified in increasing value and the number of values given 
must agree with the contents of L (113); the last value given 
is the reactor radius 

Power/Thermodynamic/Heat Transfer Inputs (Units of Btu,hr,ft, lb,°F) 

If a zero-power calculation is to be done, only the contents of 
A(1736) and A(l737) have to be specified. For a zero power calculation 
that is to be used to estimate the maximum obtainable value of for 

a given reactor size and composition, the calculation is greatly speeded 
by setting L(l30) « 0, L(l32) « 3 , L(13U) « 1, and A(l33k) to some small 
positive value greater than 10”^®. 

1728 Reactor power 

1729 Total flow through the second pass channels in the core 

1730 Nozzle/orifice area contraction ratio at second pass entrance; 
ratio = throat area/second pass channel flux area; value must 
lie between 0 and 1.0- 

1731 Thermal conductivity of inner cladding (cell region 2) 

1732 Thermal conductivity of fuel material (cell region 3) 

1733 lliermal conductivity of outer cladding (cell region U) 

173^ Interface heat transfer coefficient between fuel and cladding 
1735 Maximum allowable fuel temperature 
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1736 Pressure in the inlet pieman (psia^ 

1737 Enthalpy of water in the inlet plenum 

1738 Density of core, excluding coolant flow area 

1739 Density of radial reflector 

1765 Nozzle/orifice area contraction ratio at first pass entrance; 

ratio = throat area/first pass channel flow area; the value must 
lie between 0 and 1,0 
H, 5 Steam Table Data 

The subroutine THERMO utilizes a set of punched cards which summarize 
the data in the steam tables. This group of cards is logically broken up 
into two sets, the first containing data for the saturated state, the 
second the superheated state, which are read into the computer in that 
order. 

The one hundred and twenty=three cards that summarize the saturated 
state span the range from 100°F to the critical temperature. The first 
122 cards are spaced at 5° temperature intervals, i.e., the first card is 
for a saturation tempera t\ire of 1C0®F, the second for 105°F, and card 
number 122 for 705®F» The last card is for 705. The eight pieces of 
data that appear on each card are; 



Columns 


Data 


1 10 


Temperature (°F) 


11-20 


Pressure (psia) 


21 - 30 


Specific volxmie of saturated liquid (ft^/lb) 


0 

3 


Specific volume of saturated vapor (ft^/lb) 


41 - 50 


Enthalpy of saturated liquid (Btu/lb) 


51 - 60 


Enthalpy of saturated vapor (Btu/lb) 


61 - 70 


Entropy of saturated liquid (Btu/lb/°F) 


B 

00 

0 


Entropy of saturated vapor (Btu/lb/®F) 
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The placement of the saturated data vdthin each of the 10-column 
fields is arbitrary. The only requirement is that the decimal point be 
punched in each of the fields at its appropriate position in the data 
nmber. It is suggested that the first column of each of the fields 
be left blank. 

For the superheated data„ the teraperattire points selected are 
arbitrary but must be arranged in order of increasing value. The 
program specifically uses the fact that the 29 pressure points start with 
a value of 100 psia and increase by 50 psi increments, ending with a 
top pressiire of 1500 psia. There are thus a total of (14 x 29 =) ^6 
cards for the superheated state. The information given on each of the 
cards is arranged as follows; 

Columns Data 

1-10 Temperature (®F) 

11-20 Pressure (psia) 

21 - 30 Specific volume (ft^/lb) 

31-40 Enthalpy (Btu/lb) 

Note that the program does not use entropy values for the superheated 
state. Hie same comments made concerning saturated data placement 
within each of the 10-column fields is applicable to the superheated 
data. 

The arrangement of the superheated data cards is accomplished by 
dividing the cards into 14 groups (based upon temperature) and for each 
temperature value arrariging each of the sub-groups in increasing order 
of pressure values from 100 to 1500 psia. Thus, assuming it was desired 
to span the temperature range from 500° F to 2000°F, the cards would be 
arranged as follows; 
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Superheat Card No. 


Temperature (°F) 


Pressure (psia) 




500.0 


100.0 


2 

e 


500.0 

0 


150.0 

e 


0 

4o6 


e 

2000.0 


e 

1500.0 



In this example, the saturation pressure for is 680.8 psia. For 

cards one through twelve, specific volume and enthalpy values would be 
obtained from the superheated steam tables. Card number 13 corresponds 
to a pressure of ?00 psia, which is greater than the saturation pressure 
at 500°F, so superheated data is not applicable. For this case, cards 
13 through 29 would only have temperature and pressure values punched 
in columns 1 <= 20 and the remainder of the card would be blank. 
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